написать метод программки в тетради на языке Pascal, которая считывает число

Ответ:

Изъяснение:

var  

a:integer;

begin

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

readln(a);

repeat

write(a,' ');

a:=a-1;

until alt;0;

end.

program raf105;

var a: integer;

begin

readln(a);

while alt;gt;0 do

begin

 a:= a-1;

 writeln(a);

end;

end.

Язык PascalABC