Вывести на экран натуральные числа от 1 до 9 в обратном порядке.

Program chisla;

Var i:integer;

Begin

For i :=9 downto 1 do

Writeln (i);

End.