Вам таков вопрос дорогие друзья (на 15 баллов) надо написать программу вывода на экран n первых натуральных чисел.

var n,i:integer; begin write('n = '); readln(n); for i:=1 to n do write(i,' '); end. Пример: n = 10 1 2 3 4 5 6 7 8 9 10 

program ...;  var n, i : integer; begin write("n="); readln(n); i:=1; while n>0 do begin write(i' '); n:=n-1; end; end.