Запиши программу на языке Паскаль.

var
i, n: word;
begin
write('n=');
readln(n);
for i := 1 to n do begin write(i, ' ');
end;
readln;
end.

На экране:

n=5

5
0
25
1 2 3 4 5

Войти через: