program new;
var
i,t:integer;
begin
t:=getsystemtime;
for i := 0 to 100 do
rs_getuptext;
writeln(floattostr(round(getsystemtime - t) / 100.0));
writeln(rs_getuptext);
end.
