Судя по записи в условии функция такого вида:
F = (y+5)/(y²+y), если это так, то код может быть таким:
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var y,f:real;
begin
writeln('Введите y');readln(y);
f:=(y+5)/(sqr(y)+y);
writeln(f);
end.
Тестовое решение:
Введите y
25
0.0461538461538462