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

Question

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

Comments

Числа вводят с клавиатуры или они рандомные?

Answer 1

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