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

Program qq;
var n,i:byte;
begin
 readln (n);
for i:= n downto 1 do
writeln ( ' i  ');
end.