Question

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

Answer 1

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