Составить алгоритм программы (Пользователь вводит произвольное число, программа выводит его на экран в цикле, уменьшая каждый раз на единицу. Программа останавливается, когда число будет равно нулю)

На Паскале

var n: integer;

begin

writeln('Введите число');

readln(n);

writeln ('Вы ввели число  ', n , '.  Начинаем обратный отсчёт ');

writeln (' Внимание! Я быстро считаю ☺');

while (n>0) do

begin

n:=n-1;

writeln (n);

end;

writeln ('Ну, как-то так');

end.