Даны три действительных числа, найти наибольшее из их суммы и произведения. вывести его

Program n1;
var a,b,c,sum,p: real;
begin
readln(a,b,c);
p:=a*b*c;
sum:=a+b+c;
if p>sum then writeln('наибольшее: ',p)
else writeln('наибольшее',sum);
end.