program Project3; {$APPTYPE CONSOLE} uses SysUtils; var m:array[1..100] of integer; i,j,x,k,n:integer; label 1; begin write ('Kol-vo elementov = '); readln (n); for i:=1 to n do begin write ('Vvedite ',i,' element '); readln (m[i]); end; writeln (' Polecheny chisla '); For i:=1 to n do write (m[i]:3); writeln; k:=0; for i:=2 to n do begin x:=m[i]; j:=i-1; while (x=1) do begin m[j+1]:=m[j]; j:=j-1; k:=k+1; if j=0 then goto 1; end; 1: m[j+1]:=x; end; writeln(' SoPTuPoBka BCTABKAMU ' ); for i:=1 to n do write(m[i]:3); Readln end.