program PascalGuru;

var A:array[1..50] of integer;
m,i:integer;
max,min:integer;

begin
write('M: '); readln(m);

writeln('Vvedite el-ty massiva:');
for i:=1 to m*2 do
begin
write('A[',i,']= ');
readln(A[i]);
end;

writeln;writeln('Vvedennyi massiv:');
for i:=1 to m*2 do write(A[i]:6);

max:=1;
min:=1;
for i:=2 to m*2 do
begin
if A[i]>A[max] then max:=i;
if A[i] end;

if (A[max]>100) and (max<=m) then
for i:=1 to m*2 do
if A[i]=A[max] then
begin
for i:=max+1 to m*2 do A[i]:=A[min];
break;
end;

writeln;writeln;
writeln('Preobrazovannyi massiv:');
for i:=1 to m*2 do write(A[i]:6);

readln;
end.