Ввести с клавиатуры два целых числа. Если первое из них больше второго и второе четное, то
вычислить их сумму, а иначе вычислить их произведение. Результат вывести на экран.
ЭТО ЧЕНЬ

Program aaa;

Uses Crt;

Var x, y, z, p: integer;

Begin

write('Введите первое число ');

read(x);

write('Введите второе число ');

read(y);

z:=x+y;

p:=x*y;

if x>y and (не знаю, как написать)

then write(z)

else write(p);

end.

Объяснение: сорян, что криво