Составить блок схему и программу для вычисления факториала числа p=n! 1*2**n

Var   r, r2, x, y: real;   n: integer; begin   write('введите величину радиуса окружности: '); readln(r);   r2 : = sqr(r); n : = 0;   {1. точки в первой четверти без учета попавших на оси }   x : = 1;   while x < = r do   begin       y : = 1;       while y < = r do       begin           if sqr(x) + sqr(y) < = r2 then n : = n + 1;           y : = y + 1       end;       x : = x + 1   end;   n : = 4 * n; { учли точки в остальных трех четвертях }   n : = n + 1; { учли точку в начале координат }   n : = n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }   writeln('число точек, принадлежащих кругу, равно ', n); end. тестовое решение: введите величину радиуса окружности: 3 число точек, принадлежащих кругу, равно 29

Вот на java, в паскаль лень переводить. если все же нужно, то отпишите в скайп - vasilevich24.public class zadanie4 { public static void main(string[] args) {   .  int a[];           a=new int [150];           system.out.println("исходный массив: ");           for (int i=0; i< 15; i++) {           a[i]=(int) math.floor(math.random()*20)-10;           system.out.println("a["+i+"]="+a[i]); }             for (int i=0; i< 15; i++){           if (a[i]> =-5 & & a[i]< =5){           a[i]=a[i]+1; }}           system.out.println("полученный массив: ");             for (int i=0; i< 15; i++) {           system.out.println("a["+i+"]="+a[i]); }}}