32:

uses crt;
var n,m,i,MAX:longint;
begin
clrscr;

MAX:=-99999;
readln(n);
for i:=1 to n do
begin
 readln(m);
 if (m mod 2 = 0) and (m > MAX) then
 MAX:=m;
end;
write(MAX,' ');
readln;
end.

33:

uses crt;
var n,m,i,MAX:longint;
begin
clrscr;

MAX:=-99999;
readln(n);
for i:=1 to n do
begin
 readln(m);
 if (m mod 2 <> 0) and (m > MAX) then
 MAX:=m;
end;
write(MAX,' ');
readln;
end.

34:

uses crt;
var n,m,i,MIN,j,ktr:longint;
begin
clrscr;
readln(n);
MIN:=999999;
for i:=1 to n do
begin
ktr:=1;
 readln(m);
 if m<2 then
   ktr:=0
 else
 for j:=2 to round(sqrt(m)) do
  if m mod j = 0 then
  ktr:=0;
 if (ktr=1) and (m < MIN) then
 MIN:=m;
end;
write(MIN,' ');
readln;
end.

35:

uses crt;
var n,m,i,MAX,x,ktr:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
ktr:=0;
 readln(m);
 x:=round(sqrt(m));
 if x*x = m then
 ktr:=1;
 if (ktr=1) and (m>MAX) then
 MAX:=m;
end;
write(MAX,' ');
readln;
end.

uses crt;
var n,i,max,min,kt1,kt2,s,j,s2:longint; a:array[1..10000]of longint;
function NT(b:longint):boolean;
var i,dem:longint;
        begin
         dem:=0;
         for i:=1 to b do if(b mod i=0)then inc(dem);
         NT:=dem=2;
        end;
function CP(b:longint):boolean;
var i,kt:longint;
        begin
         kt:=0;
         for i:=1 to b do if(i*i=b)then kt:=1;
         CP:=kt=1;
        end;
begin
 clrscr;
  readln(n);
  max:=low(longint);
  min:=high(longint);
  kt1:=0;
  j:=n;
  kt2:=0;
  for i:=1 to n do
        begin
         readln(a[i]);
         if(a[i] mod 2=0)and(max<a[i])then max:=a[i];
         if(a[i] mod 2=1)and(min>a[i])then min:=a[i];
         if(NT(a[i]))and(kt1=0)then begin kt1:=1; s:=a[i]; end;
         if(CP(a[i]))and(kt2=0)then begin kt2:=1; s2:=a[i]; end;
        end;
  textcolor(lightgreen);
  writeln('so chan lon nhat trong day la: ',max);
  textcolor(lightmagenta);
  writeln('so le nho nhat trong day la: ',min);
  textcolor(lightcyan);
  writeln('so nguyen to nho nhat trong mang la:',s);
  textcolor(lightred);
  write('so chinh phuong lon nhat trong mang la:',s2);
 readln;
end.