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.