program  zxc;           
 var  a,s:integer;
  begin
    s:=0;
   for  a:=1 to 30  do
  read ( a );
  s:=s+a,writeln ( s );
     end.                                                                  [em12][em12][em12][em12][em12][em12]
[fly]加分``~~~[/fly]