Кто может нарисовать блок -схему?

[Fitch573]

var
f,S,L,p :real;
K :integer;
begin
L:=1;
S:=L;
f:=1;
k:=0;
p:=sqr(3.14)/6-1;
while abs(L)>=0.0001 do
begin
k:=k+1;
L:=L*f/sqr(k);
S:=S+L;
end;
writeln ('CyMMa=', S:6:4);
If S>p then writeln('CyMMa 6oJlbllle p') else
begin
If S<p then writeln('CyMMa 6oJlbllle p') else
writeln('CyMMa = p');
end;
readln
end.

Вот само задание:

[Hacker19_90]

Я могу нарисовать схему!
ася в профиле