{$N-}
program StrojoveEpsilon;
var jednickaReal, epsilonReal:real;
begin
  jednickaReal:=1.0;
  epsilonReal:=0.1;
  while (jednickaReal+epsilonReal>jednickaReal) do
  begin
    epsilonReal:=epsilonReal/2.0;
  end;

  write('odhad strojoveho epsilon typu real je: ',epsilonReal);
  readln;

end.