Составить блок-схему для 2 лисы и 20 кур

Uses crt; var a: array [1..15] of integer;     x,sum: integer;     sr: real; begin       randomize;       sum: =0;       for x: =1 to 15 do       begin           a[x]: =random(15)+1;           sum: =sum+a[x];           writeln('a[',x,']: ',a[x]);       end;       sr: =sum/15;       writeln;       for x: =1 to 15 do           if a[x]> sr then write(a[x]: 3); end.

Uses crt; const n=30; var a: array [1..n] of integer;       x,min,max,t: integer; begin     for x: =1 to n do   begin     write('a[',x,']: ');       readln(a[x]);   end;     min: =1; max: =1;     for x: =1 to n do     begin       if a[x]< a[min] then min: =x;       if a[x]> a[max] then max: =x;     end;     t: =a[max];     a[max]: =a[min];     a[min]: =t;     for x: =1 to n do       write(a[x]: 4); end.