помогите пожалуйста написать блок схему по коду

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var
n,i:integer;
z,s:Extended;
begin

Repeat
Write('n=');
ReadLn(n);
Until n<100 ;
S:=1;
z:=1;
i:=1;
Write('S=',S:5:0);
Repeat
z:=-z*2;
S:=S+1/z;
write(' + 1/',z);
i:=i+1;
Until i>n;
WriteLn('= ',S:4:4);
ReadLn;
{ TODO -oUser -cConsole Main : Insert code here }
end.