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

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