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

//PascalABC.NET
var
    a,b,c : Real;
begin
    write('Введите значения a,b и c: ');
    readln(a,b,c);
    writeln('Наибольшая сумма ', Max(Max(a+b, a+c), b+c));
    writeln('Наибольшее произведение ', Max(Max(a*b, a*c), b*c))
end.