Ответ:

В Паскале будет выглядеть так:

program god;

var

 x,y:real;

begin

 readln(x);

 y:= (4*x*x+1)/(x-5);

 writeln(y);

end.

P.s извиняюсь за почерк))))