var
a:string;
n,k,i:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
case a[1] of
'T':k:=k+4;
'C':k:=k+6;
'O':k:=k+8;
'D':k:=k+12;
'I':k:=k+20;
end;
writeln(k);
end.
Ответ:
1) 6.7кб
2)74кб
3)2048кб
4)31457280кб
5)2531680кб