Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) - Turbo Pascal

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

Составить програму для решения следующей задачи с помощью оператора (For-to-do). Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) с центром в начале координат. И к нему составить блок схему.

Решение задачи: «Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0)»

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

uses crt;
var r,x,y,k:integer;
begin
write('Введите радиус R= ');
readln(r);
k:=0;
for x:=-r to r do
for y:=-r to r do
if x*x+y*y<=r*r then k:=k+1;
write('k=',k);
readln
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции для ввода и вывода.
Затем объявляются переменные r, x, y и k типа integer. Переменная r будет использоваться для хранения радиуса, введенного пользователем.
Далее идет цикл for, который выполняется два раза: от -r до r. Это позволяет проверить все точки на пересечении окружности и плоскости xy.
Внутри цикла проверяется условие xx + yy <= r*r. Если оно истинно, то точка попадает в круг, и переменная k увеличивается на единицу.
После окончания внешнего цикла переменная k выводится на экран.
Код завершается вызовом функции readln, чтобы пользователь мог ввести следующий ввод.