Есть 4 числа a b c d. Число a умножается на число b а число с умножается на число d. Вывести на экран большее поизведение

Question

Маруня

24 апреля, 21:37

+4

Ответы (1)

Знаешь ответ?

Тигрия · Answer 1

Var

a, b, c, d, p1, p2: integer;

begin

readln (a, b, c, d);

p1 : = a * b;

p2 : = c * d;

if p1 > p2 then writeln (p1)

else writeln (p2);

end.