Написать алгоритм программы в тетради на языке pascal, которая считывает число и вычитает из него единицу до нуля с цикла, при этом выводит число каждую итерацию.​

program raf105;

var a: integer;

begin

readln(a);

while a<>0 do

begin

 a:= a-1;

 writeln(a);

end;

end.

Объяснение:

var  

a:integer;

begin

writeln('Введите натуральное число');

readln(a);

repeat

write(a,' ');

a:=a-1;

until a<0;

end.