program mn;
uses crt;
var a:array[1..100]of integer;
m,nm,n,i:integer;
procedure vvod(var l:integer);
var g:integer;
begin
randomize;
for g:=1 to l do
begin
a[g]:=random(30)+2;
if a[g]>m
then begin
m:=a[g];nm:=g;
end;
write(a[g]:3);
end;
writeln;
end;
BEGIN
ClrScr;
Write('N:');
readln(n);
vvod(n);
a[nm]:=a[1];
a[1]:=m;
for i:=1 to n do
write(a[i]:3);
readln;
END.