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

На экране

=2

1. 12
2.0
3.4
4.2​

Ответ дал: 1234567890qwqwqew98