var c:char;s:integer;
begin
s:=0;
case c of
'a','d','g','j','m','p','s','v','y','.','#':s:=s+1;
'b','e','h','k','n','q','t','w','z',',','_':s:=s+2;
'c','f','i','l','o','r','u','x','!':s:=s+3;
end;
read(c);
write(s);
end.

second case line
it's not '_' they mean space line ' '
they've just put '_' on the phone so you'll understand
don't believe me -- look at the example