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

program pas;var a,b,c:integer;beginreadln(a,b);if(a mod 2=0) and (b mod 2=0) then c:=a*belse if(a mod 2=1) and (b mod 2=1) then c:=a+belse c:=a-b;write(c);end.