ребятушки!!! пожалуйста!!! нужна программа в паскале которая будет решать эту штуку... и ОБЯЗАТЕЛЬНО БЛОК СХЕМА-АЛГОРИТМ

а блок - схему можно?

var i,j,s,n:integer; beginreadln(n);for i := 1 to n-1 do begin s:=0; for j := 1 to (i div 2) do if i mod j=0 then s:=s+j; if s=i then write(i,' '); end;end.