Помогите, составить описание для блок-схемы!

Помогите, составить описание для блок-схемы!
Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0)
Листинг
Var
x,y,k,R:integer;
Begin
Writeln('Введите R');
Readln(R);
k:=0;
For x:=-R to R do
For y:=-R to R do
Begin
if sqrt(sqr(x)+sqr(y))