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

Помогите, составить описание для блок-схемы!
Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса 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))<= R then
k:= k+1
End;
Writeln('В круг попадает ',k,' точек (ка) ' );
Readln;
End.