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