Задание: Если оба числа четные ищем произведение если оба нечётные ищем сумму иначе выводим просто сообщение
Программа Pascalabc.net

написать код

var a,b:integer;

begin

 read(a,b);

 if (a mod 2<>0) and (b mod 2 <>0) then

   writeln(a+b);

   if (a mod 2=0) and (b mod 2=0) then

     writeln(a*b);

     if ((a mod 2=0) and (b mod 2<>0)) or ((a mod 2<>0) and (b mod 2=0)) then writeln('ни то, ни сё');

end.

Объяснение: