Задаём кол-во точек. Вводим их координаты. Вводим радиус окружности R и координаты её центра a и b. Программа определяет какие и сколько из заданных точек попадают в заданную окружность- QBasic(Бейсик)

CLS
kol = 0
INPUT "Vvedite kol-vo to4ek:", k
DIM x(k)
DIM y(k)
FOR i = 1 TO k
INPUT "x,y=", x(i), y(i)
NEXT
INPUT "radius="; r
INPUT "a,b=", a, b
CLS
BEEP
FOR i = 1 TO k
IF (x(i) - a) ^ 2 + (y(i) - b) ^ 2 <= r ^ 2 THEN
PRINT "x="; x(i); "y="; y(i)
kol = kol + 1
END IF
NEXT i
PRINT "koli4estvo="; kol
BEEP
END