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

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