Вычислить функцию y=(x-7)/(x+5) при любом значении x

Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.