Помогите составить блок схему, пожалуйста

[AnnArhiA]

Помогите составить блок схему, пожалуйста

вот алгоритм, нужно к нему нарисовать блок схему

Const
b=0.1185;
x:Array[1..5] of Real=(0.0185,0.00088,0.0078,0.01155,0.1085);

Var
a,S1,S2:Real;
y:Array[1..5] of Real;
i:Byte;

Begin
a:=11.98;
for i:=1 to 5 do
a:=a+(b*x-Sin(x))/(b*x+Cos(x));
S1:=0;
for i:=1 to 3 do
S1:=S1+(a*x-Ln(x))/(a*x-b*Ln(x));
S2:=0;
for i:=1 to 5 do
S2:=S2+(a*x-Ln(Sqr(x)))/(a*x+b*Ln(Sqr(x)));
for i:=1 to 5 do
if a*x<Ln(x) then
y:=Cos(x)+Sin(x)+S1
else
y:=(1-Cos(x))/(1+Sin(x))+S2;
for i:=1 to 5 do
writeln('x = ',x:7:5,' y = ',y:0:5);
readln
End.