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

Question

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.

Ирина Белозерова · Accepted Answer

Пишите на почту или в асю 586178755