Mảng số thực

Lập trình để:
       - Nhập một dãy số thực từ bàn phím.
       - Tính tổng các số đó.
       - Tính tích các số đó.
       - Tính tổng bình phương các số đó.
       - Tính bình phương tổng các số đó.

                                                                 Giải

Const n=5;
Var
   a:Array[1..50] of Real;
   s,tong,s2,s1:Real; j,i:Integer;
BEGIN
       For i:=1 to n do
           Begin Write('Nhap a(',i,') = '); Readln(a[i]); End;
       s:=0; tong:=0; s2:=0; s1:=1;
       For i:=1 to n do
           Begin
               s1:=s1*a[i]; s:=s+a[i]; tong:=tong+a[i]*a[i]; s2:=s*s;
           End;
       Writeln('=> Tong cua day la: S = ',s:10:1);
       Writeln('   > Tich cac so cua day la: T = ',s1:10:1);
       Writeln('   > Tong binh phuong cac so trong day = ',tong:10:1);
       Writeln('   > Binh phuong cua tong = ',s2:10:1);
       Readln;
END.