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​

ОлиПоп    1   12.05.2020 18:57    1