Ввести два числа. Если сумма этих чисел четная, отыскать творенье, в

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

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

end.