uses crt ;
  var a : array[1..100] of longint ;
    s, n  : longint ;
begin
  clrscr ;
  repeat 
     begin 
       write('nhap: ') ;
         readln(n) ;
          s := s +n ;
     end ;
  until
     n=0 ;
    writeln('S=',s) ;
      readln 
        end.

// Ngôn ngữ C++ bạn nhé

#include<bits/stdc++.h>

using namespace std;

int main()

{

         int i,n,a[10000], t = 0;

        cout <<"nhap so hoa don vao";

        cin >> n;

        cout <<"nhap gia tien tuong ung voi hoa don";

        for(int i = 1; i <= n; i++)

             cin >> a[i];

              t = t + a[i];

         cout << "Vay tong so tien la" << t;

}