Составить алгоритмы в виде блок схемы которое по номеру семестра печатает курс к которому относится введённый семестр (1 и 2 семестр-1 курс, 3 и 4 семестр-2 курс и тд)

Program asd; var b,c,d: array[1..2500] of integer; i,max,min,n: integer; begin writeln('введите размерность одномерного массив d: '); readln(n); max: =d[1]; for i: =1 to n do begin write('введите d[',i,']: '); readln(d[i]); if max< d[i] then max: =d[i]; end;   writeln('максимальный элемент в массиве: ',max);   writeln('положительный массив b из d: ');   min: =d[1];   for i: =1 to n do   begin   if d[i]> 0 then           b[i]: =d[i];     if d[i]< 0 then         c[i]: =d[i];     if min> c[i] then     min: =c[i];         write(b[i]: 4);         end;   writeln;   writeln('отрицательный массив c из d: ');   for i: =1 to n do   begin   write(c[i]: 4);   end;   writeln();   writeln('минимальный элемент в массиве с: ',min); end.

1) var n,i,p: longint; a: array[1..100]of longint; begin read(n); p: =1; for i: =1 to n do read(a[i]); for i: =1 to n do if a[i] mod 3=0 then p: =p*a[i]; writeln(p); end.2)var n,i,s,p: longint; a: array[1..100]of longint; beginread(n); p: =1; s: =0; for i: =1 to n doread(a[i]); for i: =1 to n doif a[i]> 0 then s: =s+a[i]; for i: =1 to n doif a[i]< 0 then p: =p*a[i]; if p> s then writeln('proizvedenie')else if p< s then writeln('summa')else writeln('ravni');   end.3)var n,f,i,o: longint; a: array[1..100]of longint; beginread(n); f: =0; for i: =1 to n doread(a[i]); for i: =n downto 1 do beginif a[i]< 0 then f: =f+1; if f=2 then begin o: =a[i]; break; end; end; writeln(o); end.