Написать программу вычисления функции... помогите пожалуйста, очень нужно

Question

Написать программу вычисления функции...
помогите пожалуйста, очень нужно

---

Answer 1

Var
x:Real;
begin
Readln(x);
Writeln('x = ', x, ' y = ', (10-5*x)/(sqrt(x*x - 6*x + 10)));
end.