Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их...

Question

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

Answer 1

Program pas;
var a,b,c:integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then c:=a*b
else if(a mod 2=1) and (b mod 2=1) then c:=a+b
else c:=a-b;
write(c);
end.