var s,i: integer;
k:array [1..100] of integer;
begin
for i := 1 to 12 do
readln(k[i]);
s :=s + k[i];
end;
writeln('ответ: ' + s);
end.
