Program nhap;

Uses crt;

Var a:array[1..1000]of longing;

       i,S:byte;

Begin

       Clrscr;

       For i:=1 to 1000 do 

         Begin

            Write ('nhap vao 1 mang bat ki');

            Readln(a[i]);

          End;

         S:=0;

          For i:=1 to 1000 do 

          S:=S+a[i];

        Write ('tong cua so hang,S');

        Readln

End.

program phuongt;
uses crt;
  var A: array[1..500] 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.