Viết chương trình nhập từ bàn phím mảng A gồm N phần tử là các số nguyên dương .Tính và đưa ra màn hình tổng số N số đó

Program FNG;
Uses crt;
Var A: array[1..20] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
        End;
        Write('S = ',s);
        Readln
End.

Program BTH;
uses crt;
var a:array[1..1000000] of longint;
n,s:qword;
i:byte;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
                Begin
                Write('Nhap so thu ',i,' : ');readln(a[i]);
                s:=s+a[i];
                end;
        writeln('Tong day so tren la: ',s);
        readln;
End.