Написать программу , которая выводит на экран все натуральные числа от 1 до n.

Var i,n:integer;
begin
 Write('n='); Readln(n);
  for i:=1 to n do Write(i, ', ');
end.