Вариант_2

program var1;

uses
  SysUtils, Math;
  Type
  Array_X = array [1..20] of real;
  Array_Y = array [1..20] of real;

procedure Input (var parametr:real);
begin
    {$I-} readln(parametr); {$I+}
    if (IoResult<>0) then begin
      write('           Вы ввели неверные данные, попробуйте снова: ');
      Input (parametr);
    end;
end;


procedure Calculate (var R: real; N:integer; arrx:Array_X; arry:Array_Y);
  var i:integer;
begin
    writeln('                       Результаты вычислений                       ');
    writeln('           -------------------------------------------------       ');
    writeln('           |      X       |       Y      | Попадание точки |       ');
    writeln('           -------------------------------------------------       ');
     for i:=1 to N do
     begin
      if (((arrx[i]>0) and (arry[i]>0) and ((Power(arrx[i],2)+Power(arry[i],2))<Power(R,2))) or ((arrx[i]<0) and (arry[i]<0) and ((arrx[i]-R)<arry[i]))) then
        writeln('                ', arrx[i]:1:3,'           ',arry[i]:1:3,  '           Да ')
        else
        writeln('                ', arrx[i]:1:3,'           ',arry[i]:1:3,  '           Нет ');
      end;
    writeln('                       ---------------------------------------------------      ');
end;

var
R,parametr:real;
N,status,i:integer;
quit:boolean;
arrx:Array_X;
arry:Array_Y;

begin
    writeln('          ////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\       ');
    writeln('          /               Данная программа               \       ');
    writeln('          /         определяет, попадет ли точка         \       ');
    writeln('          /           с заданными координатами           \       ');
    writeln('          /              в область определения,          \       ');
    writeln('          /       закрашенную на рисунке серым цветом.   \       ');
    writeln('          /             Автор: Тихонов Евгений.          \       ');
    writeln('          \\\\\\\\\\\\\\\\\\\\\\\\////////////////////////       ');
    repeat  //цикл с постусловием
    writeln;
    write('           Введите количество пробных точек N: ');
    readln(N);
    write('           Введите параметр R: ');
    Input(R);
    for i:=1 to N do
      begin
        write('           Введите абциссу пробной точки X',i,': ');
        Input(parametr);
        arrx[i]:=parametr;
        write('           Введите ординату пробной точки Y',i,': ');
        Input(parametr);
        arry[i]:=parametr;
      end;
    writeln;
    Calculate(R,N,arrx,arry);
    write('Введите "1" для выхода или любую другую цифру для перезапуска программы: ');
    readln(status);
    quit:=status=1;
    until quit;
end.