Составить блок-схему программы, !

Var i,ne,ch,n: integer;       a: array of integer; //объявление динамического массива begin write('введите длину массива : '); readln(n); randomize; a: = new integer[n+1]; // установка размера (n+1) динамического массива for i: =1 to n do       begin       a[i]: =random(80)+20;       write(a[i],' '); //вывод на экран полученного массива                                if odd(a[i]) then inc(ne); // odd() - функция,определяющая нечетность числа.возвращает значение true, если число нечетное       end;                       //inc() - функция инкремент - увелечения на 1. ch: = n-ne; writeln; writeln('нечетные=',ne); writeln('четные=',ch); end.

                                                    растение

 

                            дерево                                       кустарник 

                                 

                            ясень                                           смородина

                            дуб                                                     малина