вводятся два натуральных числа. если оба числа чётные, то вывести большее

Program n1;
var a,b: integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then
if agt;b then write(a) else if bgt;a then write(b);
if(a mod 2lt;gt;0) and (b mod 2lt;gt;0)
then if alt;b then write(a) else
if blt;a then write(b);
if((a mod 2=0) and (b mod 2lt;gt;0)) or ((a mod 2lt;gt;0) and (b mod 2=0))
then write(a*b);
end.

Var
a, b: integer;
begin
write('Введите 2 натуральных числа: ');
readln(a, b);
if (a gt; 0) and (b gt; 0) then
begin
if (a mod 2 = 0) and (b mod 2 = 0) then
if a gt; b then writeln(a)
else writeln(b)
else if (a mod 2 = 1) and (b mod 2 = 1) then
if a lt; b then writeln(a)
else writeln(b)
else writeln(a * b);
end
else
writeln('Натуральное число - это все целые числа больше 0!');
end.