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

program zz1;

var a, b, r:integer; / / задаем переменные целого типа

begin

write (' введите первое заданное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

r: = b + a; / / вычисляем сумму чисел

if r mod 2 = 0 / / проверяем, если сумма четная, то

then write (' произведение заданных чисел = ', a * b) / / выводим один ответ

else write (' частное заданных чисел = ', a / b); / / выводим другой ответ

end.