Помогите нарисовать алгоритм

[RECREATOR]

function acc(var rez:Real):Real;
var
x,y: Real;
i: Integer;
begin
Result:=0;
rez := 0;
for i := 0 to 100 do begin
x := i / 10;
y := sin(x) / (x + 1);
if y < rez then begin
rez := y;
Result:=x;
end;
end;
end;

function Fact(Value: Int64): Int64;
begin
if Value>1
then Result:=Value*Fact(Value-1)
else Result:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,z,x,y:real;
i:integer;
begin
x:=acc(y);
z:=1+x;a:=x;
for I:=2 to 10 do begin
a:=a*x;
z:=z+a/fact(I);
end;
end;

[Sweta]

Вкаком виде нужен алгоритм?

[Павлик]

Помогите нарисовать алгоритм

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