Блок-схема

[Rik_Igle]

Доброе время суток!

Уважаемые участники форума! Помогите дорисовать блок-схему алгоритма метода Лагранжа.
Вот код самого метода:

function lag(xl, yl: array of real; xn: real; n1: integer): real;
var
  i,j: integer;
  lx,lj,p: real;
begin
  lx:=0;
    for j:=0 to n1-1 do
      begin
        lj:=1;
            for i:=0 to n1-1 do
            begin
              if i<>j then
                 begin
                  p:=(xn-xl[i])/(xl[j]-xl[i]);
                  lj:=lj*p;
                 end;
            end;
        lx:=lx+yl[j]*lj;
      end;
 Result:=lx;
end;

И привожу рисунок блок-схемы. Как мне сделать переходи у выделенной области?

[Mad_Cat]

Перерисуйте блоки как вас учили)

[Rik_Igle]

Спасибо.