Определить, сколько из точек с заданными координатами попадает в круг радиусом R с центром в точке (a,b)

var i,n:integer;
  r,x,y,a,b:real;
begin
  write('Введите количество точек = ');readln(n);
  write('Введите радиус = ');readln(r);
  writeln('Введите координаты центра окружности');
  readln(a,b);
  for i:=1 to n do
    begin
      writeln('Введите координаты ',i,' точки');
      readln(x,y);
      if (sqr(x-a)+sqr(y-b)<=sqr(r)) then writeln('Эта точка внутри окружности')
      else writeln('Эта точка не внутри окружности');
    end;
  readln
end.

var i,n:integer;
    r,x,y,a,b:real;
begin
  write('Введите количество точек =');readln(n);
  write('Введите радиус = ');readln(r);
  writeln('Введите координаты центра окружности');
  readln(a,b);
  i:=1;
  while i<=n do
    begin
      writeln('Введите координаты ',i,' точки');
      readln(x,y);
      if sqr(x-a)+sqr(y-b)<=sqr(r) then writeln('Эта точка внутри окружности')
      else writeln('Эта точка не внутри окружности');
      inc(i);
    end;
  readln
end.

var i,n:integer;
    r,x,y,a,b:real;
begin
  write('Введите количество точек =');readln(n);
  write('Введите радиус = ');readln(r);
  writeln('Введите координаты центра окружности');
  readln(a,b);
  i:=1;
  repeat
    writeln('Введите координаты ',i,' точки');
    readln(x,y);
    if sqr(x-a)+sqr(y-b)<=sqr(r) then writeln('Эта точка внутри окружности')
    else writeln('Эта точка не внутри окружности');
    inc(i);
  until i>n;
  readln
end.