const
  max_n = 50;// максимальное ол-во точек

var
  x, y: array [1..max_n] of real; // Массивы точек
  a: real; // Длинна квадрата
  i, n: integer;

begin
  Write('Введите размер массива (1 <= N <= ', max_n, '): ');Readln(n);
  Write('Введите длину сторону квадрата: ');ReadLn(a);

  for i := 1 to n do
  begin
    Write('Введите координаты ', i, '-ой точки (x,y): ');ReadLn(x[i], y[i]);
  end;

  Writeln('Список точек лежащих в квадрате:');
  for i := 1 to n do if (abs(x[i]) < (a / 2)) and (abs(y[i]) < (a / 2)) then WriteLn('Точка №', i:3, ' - (', x[i], ',', y[i], ')');
end.