Зделать так чтобы каждый 3 элемент выводился и потом каждый 4 пропускался (Циклы js)

Uses crt;
var b:array [1..10] of real;
    min,max,x:integer;
    sum,pr,t:real;
begin
     sum:=0; pr:=1;
     for x:=1 to 10 do
     begin
          write('b[',x,']:'); readln(b[x]);
     end;
     min:=1; max:=1;
     for x:=1 to 10 do
     begin
         if b[x]<b[min] then min:=x;
         if b[x]>b[max] then max:=x;
     end;
     t:=b[min];
     b[min]:=b[max];
     b[max]:=t;
     if max>=min then
     for x:=min+1 to max-1 do
         sum:=sum+b[x]
     else
     for x:=max+1 to min-1 do
         sum:=sum+b[x];
     for x:=1 to 10 do
         if b[x]<0 then pr:=pr*b[x];
     for x:=1 to 10 do
         write(b[x],' ');
     writeln; writeln(sum);
     writeln(pr);
end.    

Многоуровневый список, имеющего четыре уровня вложенности компьютера.

1. Процессор
2. Память
  2.1. Оперативная память
  2.2. Долговременная память
    2.2.1. Жесткий магнитный диск
    2.2.2. Дискета
    2.2.3. Флэш-память 
    2.2.4. Оптические диски
       2.2.4.1. CD
       2.2.4.2. DVD
3. Устройства ввода
  3.1. Клавиатура
  3.2. Мышь
  3.3. Сканер
  3.4. Графический планшет
  3.5.Цифровая камера
  3.6. Микрофон
  3.7. Джойстик
4. Устройства вывода
  4.1. Монитор
    4.1.1. Жидкокристаллический монитор
    4.1.2. Монитор на электронно-лучевой трубке
  4.2. Принтер
    4.2.1. Матричный принтер
    4.2.2. Струйный принтер
    4.2.3. Лазерный принтер