Code
uses crt;
var x,y:real;
var n,i:integer;
begin
n:=256;
Write('x=');
ReadLn(x);
if x=0 then
begin
WriteLn('Nevernoye znacheniye');
exit;
end;
y:=x*x+n/(x*x);
n:=n div 2;
for i:=7 DownTo 1 Do
begin
y:=x*x + n/(y);
end;
y:=x/y;
WriteLn('y=', y:8:8);
Read;
end.
На правильность - не проверял.