Question

Помогите !11Используя цикл While, напишите программу вывода на экран в строку первых N натуральных чисел. Величина N вводится с клавиатуры.

Answer 1

var N, x: integer;

begin

write('Введите число N: ');

readln(N);

x:= 0;

while x < N do

 begin

  x:= x + 1;

  write(x, ' ');

 end;

end.