readln(N);

N:=N mod 10;

if N mod 2 = 0 then writeln('Четное') else writeln('Нечетное');

readln(N);

a:=N mod 10;

N:=N div 10;

b:=N mod 10;

N:=N div 10;

c:=N;

if (a>b) and (a>c) then writeln('3-я наибольшая')

else if (b>a) and (b>c) then writeln('2-я наибольшая')

else if (c>b) and (c>b) then writeln('1-я наибольшая')

else writeln('Наибольшей нету');

readln(a,b);

if a>b then

begin

a:=a*2;

b:=b*2;

end

else

begin

a:=abs(a);

b:=abs(b);

end;