Даны 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.