Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào

program bai_giai;

uses crt;

var A:array[1..1000] of integer;

      n,i,s:integer;

begin

      clrscr;

      write(‘Nhap N: ‘);   readln(n);

      s:=0;

      for i:=1 to n do

            begin

                  write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                  s:=s+A[i];

            end;

      write(‘Tong cac so vua nhap la: ‘,s);

      readln;

end.