var
  s: string;
  d: Double;
begin
  d := 5.9999999999999991;
  Str(d:23,s);
  if (pos('6',s)<>0) then
    halt(1);
end.