Program Task;
Var i, N: Integer;
Begin
Write(N = );
ReadLn(N);
For i := 1 To N Do
Write(i, );
ReadLn;
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.