Составить блок схему для программы

program lab_7;
 
const
  N = 5;
 
type
  mas = array[1..N] of integer;
 
var
  min, max, summ, i, j, x, p: integer; 
  masA: mas;
 
begin
  writeln('Введите значения массива: '); 
  for i := 1 to N do 
  begin
    write('MasA[', i, ']= '); 
    readln(masA[i]); 
  end; 
  
  writeln('Массив: '); 
  for i := 1 to N do write(masA[i], ' '); writeln; 
  summ := 0; 
  
  for i := 1 to N do 
    if (masA[i] > 3) then summ := summ + masA[i]; 
  writeln('Сумма элементов массива превышающих 3 = ', summ); 
  max := 1; 
  
  for i := 1 to N do 
    if abs(masA[i]) > abs(masA[max]) then max := i; 
  min := 1; 
  
  for i := 1 to N do 
    if abs(masA[i]) < abs(masA[min]) then min := i; 
  p := 1; 
  if min < max then 
    for i := min to max do 
    begin
      p := p * masA[i]; 
    end 
  else 
    for i := min downto max do 
    begin
      p := p * masA[i]; 
    end; 
  writeln('Произведение элементов равно: ', p); 
  
  for j := n downto 2 do 
    for i := 1 to j - 1 do 
      if (masA[i] > masA[i + 1]) then 
      begin
        x := masA[i]; 
        masA[i] := masA[i + 1]; 
        masA[i + 1] := x;
      end;
  
  write('Отсортированный массив: ');
  for i := 1 to N do
  begin
    write(masA[i]: 3);
    end; 
end.