program zad1_9_4; // Название программы
uses CRT;              // Использование графического модуля
var                        // Объявление переменных    
      x,y,cx,cy: array [1..50] of real; // Массив точек Х и У.
      t,r,kol,k,i,n:integer;          // Разные счетчики
begin
clrscr; // Очистка экрана
        write ('Vvedite kolichestvo tochek N='); // Ввод количества точек (сколько нужно проверить)
        readln (N); // Чтение с экрана
        writeln ('Vvedite koordinati tochek'); // Ввод координат Х и У через enter
        for i:=1 to n do
         begin
         writeln (i,'-aja tochka  ');    
         read (x[i]);
         read (y[i]);
         end;
         for i:=1 to n do   // Вывод этих значений в красивом виде
         begin
              write ('(',x[i]:2:3,';',y[i]:2:3,')');
              writeln;
         end;
         kol:=0; // Обнуление счётчиков
         k:=0;
         For i:=1 to n do
         if ((x[i]*x[i]+y[i]*y[i]>=4) and (((x[i]>=-3) and (x[i]<=3)) and ((y[i]>=-3) and (y[i]<=3)))) // самое интересное условия на попадание точки в область
       then
          begin
        kol:=kol+1; // Считаем количество попавших
        k:=k+1;     
        cx[k]:=x[i]; cy[k]:=y[i];    // Точки, которые попали
          end;
          writeln;
          if kol=0 then writeln ('Net popavshich') // Вывод, что точки не попали
          else begin
          writeln ('Kolichestvo elemetov, popavshich v oblast ', kol); // Количество попавших в область
          writeln ('Koordinati tochek, popavshich v oblast:');
          for k:=1 to kol do
          writeln ('(',cx[k]:6:2,';',cy[k]:6:2,')');// Координаты попавших в область
          end;
end. // конец программы.