program tongso;

uses crt;

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

      n,i,t:integer;

begin

     clrscr;

     write('Nhap so luong so: ');   readln(n);

     t:=0;

     for i:=1 to n do

          begin

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

               t:=t+A[i];

          end;

     write('Tong day so la: ',t);

     readln;

end.

program phuongt;

uses crt;

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

        i, s: integer;

begin

          clrscr;

          for i:=1 to 5 do

          begin

                     write('Nhap so thu ', i, ': '); readln(a[i]);

          end;

          s:=0;

          write('Tong day so la: ');

          for i:=1 to 5 do s:=s+a[i];

          write(s);

          readln

end.