Ответ:
Program qq;
var n,i:byte;
begin
readln (n);
for i:= n downto 1 do
writeln ( ' i ');
end.
с помощью математических формул