program sniper;
 uses crt;
 var x,i,y,r,S,points,q,b:integer;
begin
 clrscr;
 S:=0;
 for i:=1 to 5 do
 begin
  points:=11;
  q:=0;
  writeln('vvedite koordinati ', i ,' vistrela'); readln(x,y);
  for r:=2 to 11 do
  begin
   points:=points-1;
   if (sqrt((x*x)+(y*y))<=10*r) and (q=0)
   then begin
   S:=S+points;
   q:=1;
   b:=points
  end;
 end;
end;
writeln('vi nabrali ',S,' skillov');
readkey;
end.