Question

Дано натуральное число N(Вводится с клавиатуры). Написать программу, выводящую на экран натуральные числа от 1 до N.
входные данные 4
выходные данные 1 2 3 4

Answer 1

Program prim;

var n,i: integer;

begin

writeln ('Введите число n', n);

readln (n);

for i:=1 to n do write (i);

end.