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

function mm (x,y,z: real): real; varf: real; beginif (x>y) and (x>z) thenf: =xelse if (y>x) and (y>z) thenf: =yelse if (z>x) and (z>y) thenf: =z; mm: =f; end; varx,y,z,sum,pr: real; beginreadln (x); readln (y); readln (z); sum: =mm (x+y,x+z,y+z); pr: =mm (x*y,x*z,y*z); writeln ('naibolsaya summa=', sum, ' naibolsoe proizvedenie=', pr); end.