Viết chương trình nhập số vào N số nguyên và in ra màn hình tổng của các số vừa nhập

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

      n, i: 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: ‘, s);

     Readln

End.