Блок схема

[andrey13501]

Помогите нарисовать блок схему к программе , так же нужно выполнить оценку трудоемкости )
вот программма :
program soversh;
var n,i,sum:longint;
begin
writeln('vvedite 4islo');
read(n);
i:=1;
while i<n
do
if ((n mod i)=0) then
begin
sum:=sum+i;
i:=i+1;
end
else
i:=i+1;
if sum=n
then writeln('sovershennoe')
else writeln('nesovershennoe');
end.

[bablzz]

Бог в помощь:
блок схемы
бог в помощьl
оценка трудоемкости:
вот тут читай и вникай