var a: array[1..100] of integer;

    i, n: byte;

    S: longint;

Begin

    Write('n = '); readln(n); 

    S:=0;

    For i:=1 to n do 

        Begin

            Write('a[',i,'] = '); readln(a[i]);

            S:=s+a[i];

        End;

    Write('tong la ',s);

    Readln

End.

program phuongt;
uses crt;
  var A: array[1..200] of integer;
        i, s, n: integer;
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('Tong = ', s);
              readln
end.