Напишите программу вычесления выражения s=(x-y^2)/(x^2+y^2)+xy

var  s, x, y: real;
begin  write('введите х у:');  read(x, y);  s := (x - sqr(y)) / (sqr(x) + sqr(y)) + x * y;  s := Trunc(s);  writeln('s:', s);end