program ed;
uses crt;
const n=10;
var a:array[1..100] of integer;
i,max,k:integer;
Begin
clrscr;
k:=6;
randomize;
for i:=1 to n do begin
a[i]:=random(10+1);
write(a[i]:3);
writeln;
end;
max:=0;
for i:=1 to n do
if a[i]>max then max:=a[i];
write(max); writeln;
for i:=n downto 1 do begin
if a[i]=max then begin
a[i-1]:=a[i];
a[i-1]:=k;
a[i+1]:=k;
end;
end;
for i:=1 to n do
write(a[i]:3);
readln;
End.