uses crt;
var a: array[1..100] of integer;
n,i,s: word;
f:text;
begin
clrscr;
Assign(f,'tep.inp'); Reset(f);
Readln(f,n);
for i:=1 to n do readln (f,a[i]);
CLose(f);
Assign(f,'tep.out'); Rewrite(f);
For i:=1 to n do S:=S+a[i];
writeln (f,'tong la: ',s);
CLose(F);
End.