Даны Z,X и Y. Вычислить R=max(x+y,z,y+z), если x>y. В противном случае R=x+y+z Опции

[9milesz]

Даны Z,X и Y. Вычислить R=max(x+y,z,y+z), если x>y. В противном случае R=x+y+z

не могу решить, прошу помощи

[Федосеев Павел]

Она делает тоже самое, но не очень наглядно и трудно проверить.

[9milesz]

 
var
z,x,y,r:real;
function max(x,y : real) : real;
begin
   if (x > y) then max := x
   else max := y;
end;
begin
writeln('Vvedite X');
readln(x);
writeln('Vvedite Y');
readln(y);
writeln('Vvedite Z');
readln(z);
if (x>y)
then
R:=max(max(x+y,z),y+z) else R:=x+y+z;
writeln('R=',R);
end.

Вот, вроде бы даже работает.