Question

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

Answer 1

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