Есть 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.