Z=f(x+1,y-1)-f(x*y,y)+f(x/y,x) где f(a,b)=a-b/2a^2+ab+b^2 при x=0.35 y=1.48

//PascalABC.Net 3.2
function f(a, b: real):=a-b/(2*sqr(a))+a*b+sqr(b);
begin
var x:=readreal('Введите x: ');
var y:=readreal('Введите y: ');
write ('z=', f(x+1, y-1)-f(x*y, y)+f(x/y, x));
end.