Решить по языку Pascal

var    x, y, z : Integer;    f : Real;begin    Write('x: ');    Readln(x);    Write('y: ');    Readln(y);    Write('z: ');    Readln(z);     f := x / (sqr(y) + sqr(z)*z) + sqr(y) / (sqr(z) - sqr(y)) - (sqr(z) - y) / (x*y + z);       Writeln(f);    Readln;end.