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

Question

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

Answer 1

Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
End.