Создать схему алгоритма по программе

{Calculation Ln(X)=sum[n=1...inf](-1)^(n+1)*((x-1)^n)/n, 0<X<2}
 
program nat_log;
 
{ Функция возведения числа x-1 в степень n}
function power1(i:longint;x:real):real;
{Переменные}
var v:longint;
    r:real;
begin
r:=1;
v:=0;
WHILE v<=i-1 DO
         begin
         r:= (r)*(x-1);
         v:=v+1;
         end;
power1:=r;
end;
 
{ Функция возведения числа -1 в степень n+1}
function power2(i:longint):longint;
{Переменные}
var k,g:longint;
begin
g:=-1;
k:=0;
WHILE k<=i-1 DO
         begin
         g:= (g)*(-1);
         k:=k+1;
         end;
power2:=g;
end;
 
{Метки переходов}
label m1,m2,m3;
{Переменные}
VAR
     N,I:longint;
     SUM,X:real;
     Y:char;
{Тело программы}
BEGIN
     m3:
     WRITE('Calculation Ln(X)=sum[n=1...inf](-1)^(n+1)*((x-1)^n)/n, 0<X<2:');
     WRITELN('Put into operation:');
{Ввод степени ряда, чем больше тем точнее вычисление}
     WRITELN('N real from "1" to infinity');
     m1:
     WRITE('N=');
     READLN(N);
{Проверка на не отрицательность спепени и не нуля}
     if  N<1 then
     begin
     WRITELN('N <1 put from "1" to infinity');
     goto m1;
     end;
{Ввод вычисляемого значения из диапазона}
     WRITELN('X duoble from "0" to "2"');
     m2:
     WRITE('X=');
     READLN(X);
{Проверка правильности задания числа из требуемого диапазона}
     if  X<=0 then
     begin
     WRITELN('X =<0 put from "X>0"');
     goto m2;
     end
     else
     begin
     if  X>2 then
     begin
     WRITELN('X >2 put from "X<2"');
     goto m2;
     end;
     end;
     I:=1;SUM:=0;
{Вычисление ряда}
     WHILE I<=N DO
         begin
{Подключение двух функций power 1 и power2 для вычисления}
         SUM:=SUM+POWER2(I)*((POWER1(I,X)/I));
         I:=I+1;
         end;
{Вывод результата}
     WRITELN('LN(X): ',SUM);
{Проверка на повторное вычичсление}
     WRITELN('Continue calculation push the button "y" else "n"');
     READLN(Y);
     if  Y='y' then goto m3;
END.