program mn;
uses crt;
var a:array[1..100]of integer;
i,m,no,n:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);randomize;
for i:=1 to n do
begin
a[i]:=random(40);
Write(a[i],' ');
end;
writeln;
m:=a[1];
for i:=2 to n do
if a[i]>m
then begin
m:=a[i];
no:=i;
end;
for i:=no to n-1 do
a[i]:=a[i+1];
dec(n);
for i:=1 to n do
Write(a[i],' ');
readln;
END.