program z1;
var x:real;
begin
x:=5;
repeat
writeln('x = ',x:3,' f(x) = ',sqr(x)+sqrt(x)/(x-24):0:3);
x:=x+0.1
until x>6
end.
