Question

составит программу которая выводит на экран числа от 1 до 30 в порядке убывания

Answer 1

var i:integer;
begin
 for i:=30 downto 1 do write(i,'  ')
end.