Var i,n:word;beginwrite('n=');readln(n);for i:=1 to n do begin write(i,' ');end;readln;end.На экране=2 1. 12 2.03.44.2
1).12 ))))))))))))))))))))))))))))