Задача на массив.

[glebast]

Привет ребята. Мне нужно решить задачку с массивами. Сам массив я сделал осталось только условие решить, помогите пожалуйста.

Дан целочисленный массив А размера N(<=15). Переписать в 
новый целочисленный массив B все элементы с порядковыми номерами
кратными трем (3,6,...), и вывести размер полученного массива B и 
содержимое. Условный оператор не использовать.

Вот я написал начало:

program asdf;
uses crt;
var b,mas:array [1..15] of integer;
    i,n:integer;
    
begin
read(n);
for i:=1 to n do
 begin
 mas[i]:=random(15);
 write(mas[i]:3);
 end;

end.

[Mad_Cat]

program array56;
var n,k:integer;
b:array[1..10]of integer;
a:array[1..15] of integer;
i:integer;
begin
write('n=');readln(n);
For i:=1 to n do
begin
a[i]:=random(2*n)-n;
write(a[i],' ');
end;
i:=3;
k:=0;
while i<=n do begin
k:=k+1;
b[k]:=a[i];
i:=i+3;
end;
writeln;
writeln('k=',k);
For i:=1 to k do
begin
write(b[i],' ');
end;
readln;
end.

[Serge_Bliznykov]

for i:=1 to (N div 3) do
  B[i] := mas[i*3];