Var
map, tel : String;
i : Integer;
Begin
map := '22233344455566677778889999';
Readln(tel);
For i := 1 To Length(tel) Do
If (tel[i] >= '0') AND (tel[i] <= '9')
Then Write(tel[i])
Else
If (tel[i] >= 'A') AND (tel[i] <= 'Z')
Then Write(map[Ord(tel[i]) - Ord('A') + 1]);
End. 输入：CCF-NOIP-2011
输出：1
