Question

Составьте программу к задаче : Вывести 20 первых чисел так чтобы каждое последующее было на меньше предыдущего . Первое число 25

Answer 1

Var i:integer;
begin
for i:=25 downto 6 do writeln(i)
end.