Đại số vector

Lập trình để:
       - Nhập 2 vect a,b (cùng số chiều n) từ bàn phím.
       - Tính tổng 2 vectơ
       - Tính tích vô hướng của 2 vectơ đó.
                                                                 Giải
Const n=6;
Var
   a,b,c:Array[1..n] of Real;
   tvh:real; i: Integer;
BEGIN
       For i:=1 to n do
           Begin
               Write('Nhap a(',i,') ='); Readln(a[i]);
               Write('Nhap b(',i,') ='); Readln(b[i]);
               c[i]:=a[i]+b[i]; tvh:=tvh+a[i]*b[i];
           End;
       Write('=> Vecto tong la: C=(');
       For i:=1 to n do
       Write(' ',C[i]:6:1);
       Write(')');
       Writeln;
       Write('-> Tich vo huong la: ',tvh:6:1);
       Readln;
END.