Var a:array [1..12] of integer;
sym,i:integer;
BEGIN
For i:=1 to 12 do
Begin
Read(a[i]); // Ввод стоимости
sym:=sym+a[i];
End;
Write(sym);
END.
