program tong;

uses crt;

var a: array[1..100] of longint;

      i,S: longint;

begin

clrscr;

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do S:=S+a[i];

writeln('tong cua 10 phan tu la: ',S);

readln

end.

program day_so;

uses crt;

var D : array [1 .. 10] of integer;

    i, S : integer;

begin

clrscr;

S := 0;

write('Nhap day gom 10 so : ');

for i := 1 to 10 do

    begin

        read(D[i]);

        S := S + D[i];

    end;

write('Tong cac so = ', S);

readln

end.