Помогите пожалуйста Pascal Ввести два числа. Если сумма этих чисел нечетная, найти...

Question

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

Answer 1

var x,y : integer;

begin

readln( x, y );

if ((x+y) mod 2 ) = 0 then writeln(x div y)

else writeln(x * y);

end.