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

//PascalABC.NETvar    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.