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

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.