program PascalGuru;
 
var X:array[1..50] of integer;
    n,i,z:integer;
 
Procedure Regulated (N,Z:integer);
Var j,k:integer;
begin
k:=0; j:=N;
While (j>=1) and (k=0) do
if X[j]>Z then begin X[j+1]:=X[j]; j:=j-1 end
	else k:=j;
X[k+1]:=Z;
end;
 
{-------------------------------------------------------------}
 
begin
writeln ('Vvedite razmer massiva X:');  read (n);
writeln ('Vvedite UPORIADOCENNYI massiva X:');
for i:=1 to n do begin write ('X[',i,']='); readln (X[i]); end;
 
write ('Vot vvedennyy vami massiv X: ');
for i:=1 to n do write (X[i],'  ');   writeln; writeln;
 
write('Kakoe cislo vstaviti: '); readln(z);
Regulated(n,z); {вставка}
inc(n);
writeln;
write ('Vot massiv X posle vstavki: ');
for i:=1 to n do write (X[i],'  ');   writeln; writeln;
 
readln;
end.