В Паскале будет выглядеть так:
program god;
var
x,y:real;
begin
readln(x);
y:= (4*x*x+1)/(x-5);
writeln(y);
end.
P.s извиняюсь за почерк))))
