Вам таков вопрос дорогие друзья (на 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.