Составить блок схему

[Ecethador]

Дорогие форумчане, помогите пожалуйста составить блок-схему.
См вложение

[whatever]

Слева программа, справа функция "Func". При желании объединишь.

program Project1;

{$APPTYPE CONSOLE}

uses
  sysutils;

function Func(x:real; n:integer):real;
var
  znam:real;
begin
  znam:=1;
  result:=exp(n*ln(x));
  while n>0 do
    begin
      znam:=znam*n;
      dec(n);
    end;
  result:=result/znam;
end;

VAR
  sum,x:real;
  i:integer;
BEGIN
  readln(x);
  sum:=0;
  for i:=0 to 10 do
    sum:=sum+func(x,i);
  writeln(sum);
END.