Вводятся два натуральных числа. если оба числа чётные, то вывести большее из них. если оба числа не чётные, то вывести меньшее из них. если одно чётное, а другое не чётное, то вывести их произведение на экран.

Var

a, b: integer;

begin

write ('Введите 2 натуральных числа: ') ;

readln (a, b) ;

if (a > 0) and (b > 0) then

begin

if (a mod 2 = 0) and (b mod 2 = 0) then

if a > b then writeln (a)

else writeln (b)

else if (a mod 2 = 1) and (b mod 2 = 1) then

if a < b then writeln (a)

else writeln (b)

else writeln (a * b) ;

end

else

writeln ('Натуральное число - это все целые числа больше 0!') ;

end.

Program n1;

var a, b: integer;

begin

readln (a, b) ;

if (a mod 2=0) and (b mod 2=0) then

if a>b then write (a) else if b>a then write (b) ;

if (a mod 20) and (b mod 20)

then if a
if b
if ((a mod 2=0) and (b mod 20)) or ((a mod 20) and (b mod 2=0))

then write (a*b) ;

end.