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

      i, n: byte;

      S: longint;

Begin

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

     S:=0;

     For i:=1 to n do 

        Begin

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

            Readln(a[i]);

            S:=S + a[i];

        End;

     Write('tong la: ', s);

     Readln

End.