13 символів, так як один символ=1 біт
Прямые углы, все стороны равны, проведённые диагонали равны.
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.