Даю 60 поинтов Решить на языке паскаль

:

var x,y:real;

begin

write('x=');

read(x);

write('y=');

read(y);

writeln ('z=',((y+1)*(2*x+5*y)) / (y+x))

end.