3 задание,помогите,всё в паскале

Question

3 задание,помогите,всё в паскале

---

Answer 1

Program v;
Var y,x: integer;
Begin
Read(x);
Y:= (x+5/(x-5))+(x+7/(x-7));
Writeln('y=',y);
Readln;
End.