uses crt;
Const
Fi='D:\11T\TRAI.TXT';
Fo='D:\11T\KC.TXT';
max=10;
Var f1 , f2:text;x,y:integer;
d:array[1..max] of real;
i,j:byte;
tong,tb:real;
BEGIN
{doc file }
clrscr;
Assign (f1,fi); Reset(f1); i:=0; tong:=0;
While not(EOF(f1)) do
begin
read(f1,x,y);
inc(i);
d[i]:=sqrt(sqr(x)+sqr(y));
writeln(d[i]:0:2);
tong:=tong+d[i];
End;
tb:=tong/10;
Close(f1);
Assign(f2,fo); rewrite(f2);
for j:=1 to i do
if d[j]<tb then writeln(f2,j);
Close(f2);
Readln;
END.