{$N+,E+}
var
q,eps :extended;
begin
q:=1;
while
1+q > 1
do
q:=q/2; eps:=2*q;
end
.