10 SCREEN 12
20 RANDOMIZE TIMER
30 DIM A$10$ 40 DIM count
50 PRINT "Enter the radius of the circle: ";
60 INPUT R
70 count = 0
80 FOR i = 1 TO 10
90 A$i$ = INT$RND\ast 100$ 'random integers between 0 and 100
100 NEXT i
110 CIRCLE $0,0$, R
120 FOR i = 1 TO 10
130 FOR j = 10 TO 1 STEP -1
140 IF i < j THEN
150 x = A$i$ 160 y = A$j$ 170 IF SQR$x^2+y^2$ <= R THEN
180 count = count + 1
190 PSET $x,y$ 200 END IF
210 END IF
220 NEXT j
230 NEXT i
240 PRINT "Number of points on the circle: "; count
250 END

Блоксхема

НачалоВвод радиуса окружности RИнициализация переменной count = 0Генерация массива случайных целых чисел A$10$ от 0 до 100Отображение окружности с центром в начале координат и радиусом RДля i от 1 до 10
Для j от 10 до 1 с шагом -1
Если i < j, то
Присвоить x = A$i$ и y = A$j$Если sqrt$x^2+y^2$ <= R, тоУвеличить count на 1 и отобразить точку $x,y$ на экранеВывод количества точек на окружности: countКонец