Подсчитать количество точек, лежащих вне круга радиуса 2 с центром в точке (2, 2) - PascalABC.NET

Формулировка задачи:

подсчитать количество точек, лежащих вне круга радиуса 2 с с центром в точке (2,2) помогите пожалуйста составить программу, заранее большое спасибо)

Решение задачи: «Подсчитать количество точек, лежащих вне круга радиуса 2 с центром в точке (2, 2)»

Листинг программы

begin
  var N := ReadLnInteger('Количество точек =');
  var count := 0;
  for var i := 1 to N do
    begin
      WriteLnFormat('Координаты {0} точки:', i);
      count += (sqr(ReadLnReal('x =')-2)+sqr(ReadLnReal('y =')-2) > 4 ? 1 : 0);
    end;
  WriteLn('Точек лежащих вне круга ', count);
end.

Объяснение кода листинга программы

Вводится количество точек с помощью функции ReadLnInteger, переменной N.
Инициализируется счётчик точек вне круга, переменная count, со значением 0.
В цикле for перебираются точки от 1 до N.
Выводится сообщение с координатами текущей точки.
К счётчику count прибавляется 1, если расстояние от текущей точки до центра круга больше 2, иначе 0.
По завершении цикла выводится количество точек, принадлежащих кругу.