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

Program vikaromanenko;
var n,i:integer;
begin
writeln('n=');
readln(n);
for i:=1 to n do
write(i);
end.