Дано два числа. если числа четны, то вычислите их произведение, если числа не четны, то их сумму, в остальных случаях вычислите разность этих чисел.

program even_odd;

var a, b: integer;

begin

write ('Введите два числа через пробел ');

read (a, b);

case (a mod 2) + (b mod 2) of

0: writeln (a, ' * ', b, ' = ', a * b);

1: writeln (a, ' - ', b, ' = ', a - b);

2: writeln (a, ' + ', b, ' = ', a + b);

end

end.