Определить, попадают ли точки с заданными координатами в заданную область - Turbo Pascal - Ответ 7769551

type probe = record x, y, r: double end;
const m = 100;
      g = '+------------------------+------------------------+-----+';
      no_yes: array [boolean] of string[3] = ('No ', 'Yes');
var series: array [1..m] of probe;
    n, num: integer;
    s: string;
begin
  repeat
    repeat
      write('Number of tests in series [1..', m, ']: ');
      readln(n)
    until n in [1..m];
    for num := 1 to n do with series[num] do
      begin
        writeln('Test #', num, ':');
        write('X[', num, '] = ');
        readln(x);
        write('Y[', num, '] = ');
        readln(y);
        repeat
          write('R[', num, '] = ');
          readln(r);
          if r <= 0 then writeln('Radius must be > 0, reenter')
        until r > 0
      end;
    writeln('Tests results:');
    writeln(g);
    writeln('|           X            |            Y           | Hit |');
    writeln(g);
    for num := 1 to n do with series[num] do writeln('| ', x, ' | ', y, ' | ',
      no_yes[(x * y >= 0) and (abs(y) <= abs(x)) and (sqr(abs(x) - r) + sqr(abs(y) - r) <= r * r)], ' |');
    writeln(g);
    write('Enter one more series? ');
    readln(s)
  until (s = 'n') or (s = 'N')
end.