var
  t,a,b,c,d:longint;
  total:real;
begin
  while not seekeof do
    begin
      readln(total,a,b,c,d);
      t:=trunc(total*100)-10;
      while t<>total*100 do inc(t);
    end;
end.
这个程序是超时的！！！