Program zad;
uses crt;
const n=15; d=4;
var x:array[1..n+2] of integer;
f,k,max:integer;
begin
clrscr;
randomize;
for k:=1 to (n) do
begin x[k]:=random(15)-3;
write(x[k]:5); end;
writeln;
max:=x[1];
for k:=1 to (n+2)do
if x[k]> max then begin
max:=x[k];
f:=k; end;
writeln(max);
for k:=n downto f do x[k+1]:=x[k]; x[f]:=d; begin
for k:=1 to (n+1) do
write(x[k]:5); end;
writeln;
readln;
end.