Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае,...

Question

Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.

Answer 1

Program i2;
var
  a,b: integer;
begin
  readln(a.b);
  if (a+b) mod 2=0 then
      writeln(a*b)
  else
      writeln(a/b);
end.