Найти количество элементов, стоящих на местах, кратных трем - составить блок-схему

program pro;
uses crt;
var A:array[1..15] of integer;
B:array[1..15] of integer;
    i,p,n,f,s,c,d,kol,max,min,mestomin,sa:integer;
    k:                         real;
begin
for i:=1 to 15 do
    begin
    A[i]:=random(30)-15;
    write(A[i]:4);
    end;
writeln;
readln;
writeln('Задача 9.1 Найдите количество элементов,стоящих на местах,кратных трем');
k:=0;
for i:=1 to 15 do if i mod 3 = 0 then k:=k+1;
writeln('Количество элементов, стоящих на местах кратных трем:= ', k);
writeln();
writeln();
writeln('Задача 9.2 Найдите произведение отрицательных элементов ,имеющих нечетное значение');
p:=1;
for i:=1 to 15 do
    if (a[i] < 0) and (a[i] mod 2 = 0 ) then p:=p*a[i];
writeln('Произведение отрицательныз элементов ,имеющих не четное значение: ',p);
writeln();
writeln();
writeln('Задача 9.3 Найдите среднее арифмитическое значение элементов ,которые попадают в интервал [-5;5]');
for i:=1 to 15 do
    if (a[i]>=-5) and (a[i]<=5) then
       begin
       sa:=sa+a[i];
       inc(kol) ;
       end;
writeln('sa',sa,' kol=',kol);
writeln('Среднее арифмитическое значение элементов равно:',sa/kol);
writeln();
writeln();
writeln('Задача9.7 Вывести на экран одномерный массив ,расскрасив в нем синими цвветом все нечетные элементы');
for i:=1 to 15 do
    begin
    if A[i] mod 2 <> 0 then
       begin
       TextColor(blue);
       write(A[i]:4);
       TextColor(black);
       continue;
       end;
    write(A[i]:4);
    end;
writeln();
writeln('Задача 9.4 Заменить элементы массива,которые кратны пяти,на значение максимального элемента массива.');
for i:=1 to 15 do if a[i]> MAX then MAX:=A[i];
writeln('MAX=',max);
for i:=1 to 15 do if (a[i] mod 5)=0 then a[i]:= max;
write(A[i]:4);
writeln();
writeln('Задача 9.5 Осуществить перестановку минимального эемента и элеменнта ,стоящего на последнеи месте.');
 
min:=A[1];
for i:=1 to 15 do begin
if A[i]<min then begin
min:=A[i];
mestomin:=i;
end;
end;
c:=A[15];
A[15]:=A[mestomin];
A[mestomin]:=c;
for i:=1 to 15 do
write(A[i]:4);
writeln;
writeln();
writeln('Задание 9.6 Создайте новый одномерный массив,в который занесите отрицательные элементы исходного массива в обратном порядке ');
kol:=0;
for i:=15 downto 1 do begin
if A[i]<0 then begin
kol:=kol+1;
B[kol]:=A[i];
end;
end;
for i:=1 to kol do
write(B[i]:4);
writeln;
end.

program mass;
uses crt;
var B:array[1..8,1..8] of integer;
newmas: array[1..64] of integer;
    i,j,k,p,max,kol:       integer;
    s:                 real;
begin
clrscr;
writeln('Ввод и вывод двумерного массива');
randomize;
for  i:=1 to 8 do
     begin
     for j:=1 to 8 do
         begin
         B[i,j]:=random(120)-60;
         write(B[i,j]:4);
         end;
     writeln;
     end;
writeln();
 
writeln('задача10.1 Найдите средне арифмитическое отрицательных элементов третьей строки');
for i:=1 to 8 do
    for j:=1 to 8 do
        if B[i,j]<0 then
        begin
           s:=s+b[i,3];
           k:=K+1;
        end;
s:=s/k;
writeln('Результат:=',s:0:1);
writeln();
 readln;
writeln('Задача 10.4 опредилите максимальный элемента столбца массива' );
max:=B[1,1];
for i:=1 to 8 do if max < B[i,1] then max:=B[i,1];
writeln('максимальный элемент:=',max);
writeln();
 readln;
writeln('Задача 10.5 Дополните предыдущаю программу таким образом ,чтоюы она вычитала так же сумму элементов в каждой строке массива');
for i:=1 to 8 do
    begin
    k:=0;
    for j:=1 to 8 do
        k:=k+B[i,j];
    writeln('Результат:=',k) ;
    end;
writeln();
 readln;
writeln('Задача 10.2 Обнулите элементы, имеющие четное значение и стоящие на побочной диагонали');
p:=1;
for j:=1 to 8 do
    begin
    if b[i,j]<0 then  p:=p*b[i,j];
    writeln('Результат:=',p)
    end;
writeln;
  readln;
writeln('Задача 10.3 Создайту новый одномерный массив из элементов  имеющих значение больше "-5"');
kol:=0;
for i:=1 to 8 do begin
 for j:=1 to 8 do begin
  if B[i,j]>-5 then begin
   kol:=kol+1;
   newmas[kol]:=B[i,j];
   write(newmas[kol]:4);
  end;
 end;
end;
end.