{* Задача 188 *}

Unit ZADACH188;
Interface
Implementation
Begin
 writeln('Количество символов в последнем слове');
End.

Program length_posl;

Uses zadach188.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s : String;
  i : integer;
  k : integer;
  j : integer;
Begin
  writeln('Введите строку');
  readln(s);
  For i := length(s) Downto 1 Do
    If s[i]' ' Then
      break;
  For j := i Downto 1 Do
    If s[j]' ' Then
      k := k + 1
    Else break;
      writeln('В последнем слове ', k, ' символа(ов)');
  readln; {* Ждем подтверждения пользователя *}
End.