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

Var

a, b, c, p, s: integer;

begin

readln (a, b, c);

p : = a * b * c;

s : = a + b + c;

writeln ('P = ', p);

writeln ('S = ', s);

write ('Max = ');

if s > p then writeln (s) else writeln (p);

end.