50+ балов Помогите вычислить значение функции(нужно написание в паскале) пожалуйста срочно

Function f(x:real):real;beginf:=x/(25-x*x);end;var xn,xk,h,x:real;beginwrite(Введите начало интервала xn=);readln(xn);repeatwrite(Введите конец интервала xk>,xn:0:2, xk=);readln(xk);until xk>xn;repeatwrite(Введите шаг табуляции h<,xk-xn:0:2, h=);readln(h);until h

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.