Для четырёх произвольных чисел, введёных с клавиатуры, выведите на экран соответствующие результаты. Если произведение второго и четвёртого числа чётно, то выведите эти два числа и их произведение. Паскаль

Var a, b, c, d:integer;

begin

writeln ('Введите 4 числа:');

readln (a, b, c, d);

if b*d mod 2 = 0

then writeln ('b = ', b,' d = ', d,' ', b,'*', d,' = ', b*d);

end.

Пример:

Введите 4 числа:

51 32 19 73

b = 32 d = 73 32*73 = 2336