Program KOLO (input, output);
var
  i,n:integer;
  Long, R, x, y: real;

  Procedure KRUG (R, x, y : real; var Long : real);
  begin
    Long:= sqrt ( sqr(x) + sqr(y));
  end;

begin
  writeln (' ввести R, x , y :');
  write('введіть радіус: ');
  read(r);
  n:=1;
  for i:=1 to 8 do
  begin
    writeln('[точка ',n,']');
    write('Введіть х: ');
    read (x);
    write('Введіть у: ');
    read (y);
    KRUG (R, x, y, Long);
    writeln ('відстань = ', Long : 6 : 2);
    begin
      if Long<=R then write('точка входить в коло') ELSE write('точка не входить в коло');
      writeln;
      writeln('__________________________');
      n:=n+1;
    end;
  end;
end.