Uses Crt;
Var
  N,i,K,j,f,a:Integer;
  X,Y,L,Z,D,P:Array[0..500] of Real;
  R,S,V:real;
Begin
ClrScr;
K:=0;
j:=0;
  Writeln('vvedi kol-vo tochek=');
  Read(N);
    If (N>1) or (N<500) then
      For i:=1 to N do Begin
       Write('X[',i,']=');
       Read(X[i]);
       Write('Y[',i,']=');
       Read(Y[i]);
     End;
 writeln('vvedi radius kruga=');
 read(R);
 for i:=1 to N do begin


 if R*R<(X[i]*X[i]+Y[i]*Y[i]) then
  begin
  writeln('tochkaü=',i:2);


   end
   else
      begin
     K:=k+1;
   L[K]:=X[i];
   Z[K]:=Y[i];
   end;

  end;

  f:=k;
  a:=j;
  writeln('Massiv L');
 for K:=1 to f do
 write(L[K]:3:1,' ');
 writeln('');
 writeln('Massiv Z');
 for K:=1 to f do
 write(Z[K]:3:1,' ');
 writeln('');

 readkey;
 S:=0;
 V:=0;
 for k:=1 to f do
 begin
 V:=V+Z[K];
 S:=S+L[K];
 end;
 S:=S/f;
 V:=V/f;
 writeln('srednee X=',S:2:1);
 writeln('srednee Y=',V:2:1);
 readkey;
 end.