Question

Разработайте программу, которая просит пользователя ввести с клавиатуры 2 числа. Если сумма чисел четная, следует 2-ое число разделить на 1-ое и вывести результат на экран, если сумма чисел не четная, следует 1-ое число умножить на второе и вывести результат на экран.

Answer 1

program zadacha;
var a,b,c:integer;
    d:real;
begin
read (a,b);
c:=a+b;
c:=c mod 2;
if c = 0
then d:=a/b
else d:= b*a;
write(d);
end.