{* Задача 14 *}

Unit ZADACH14;
Interface
Implementation
Begin
 writeln('Пользователь вводит текст на русском языке. Вставить 1 пробел после каждой точки, если он отсутствует перед следующим предложением, а также вычислить количество предложений.');
End.

Program p3;

Uses zadach14.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s  : String;
  s1 : String;
  i  : integer;
  m  : integer;
  k  : integer;
  n  : integer;
Begin
  read(s);
  s1 := s;
  For i := 1 To length(s1) Do {* Увеличиваем i от 1 до length(s1) с шагом 1 *}
    If (s1[i] = '.') And (s1[i + 1]' ') Then
    Begin
      n := i + 1;
      insert(' ', s1, n);
    End;
  m := pos('.', s);
  While m > 0 Do
  Begin
    k := k + 1;
    delete(s, 1, m);
    m := pos('.', s);
  End;
  writeln ('k=', k);
  write (s1);
End.