Program str999;
Uses CRT;
Var s: String;
Begin
ClrScr;
While (True) do
      Begin
      Readln(s);
      If (s = '999') then Break
                     else Writeln(Length(s),' букв(ы)');

      End;
End.

Источник: