Векторное произведение Опции

[Ivon]

Не хотел забивать вам голову таким пустяшным заданием, но обстаятельства повернулись чем-то другим...

Даны три вектора... найти их векторные произведения. т.е. a*b b*c a*c.

Написать задание смогу, но только с большим кол-ом переменных... помогите или хотя бы намекните

[klem4]

const n=3;
var  a,b,c,ab,ac,bc:array[1..n] of integer;
     i:integer;

Begin
   {ввод векторов}
   for i:=1 to n do
    begin
       ab[i]:=a[i]*b[i];
       ac[i]:=a[i]*c[i];
       bc[i]:=b[i]*c[i];
    end;
    readln
end.