program z7_81;
uses crt;
const n=5;
var a:array[1..n] of integer;i:integer;b:integer;
begin
clrscr;
randomize;
for I:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);end;
b:=a[1]; i:=1;
while i<=n do begin
if a[i] >b then b:=a[i];
i:=i+1;
end;
writeln; i:=1;
while i<= n-1 do
begin
if a[i]=b then
begin a[i+1]:=0;i:=i+1 end
else i:=i+1;end;
writeln;
for I:=1 to n do write(a[i]:3);
end.