даны два целых числа. Если оба они чётные, то найти разность этих чисел, иначе вычислить...

Question

даны два целых числа. Если оба они чётные, то найти разность этих чисел, иначе вычислить их произведение (программа паскаль). ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

var a,b:integer;

begin

readln(a);

readln(b);

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

else writeln(a*b);

end.