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

Question

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

---

Answer 1

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.