{* Задача 316 *}

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

Program pas13562;

Uses zadach316.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  pr = [' ', '.', ', ', '?', '!', ':', ';
  ', '(', ')'];
Var {* В работе нам потребуются переменные: *}
  s  : String;
  sl : String;
  i  : integer;
  j  : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  i := 0;
  writeln('Введите строку символов, оканчивающуюся точкой: ');
  readln(s);
  For j := 1 To length(s) Do {* Переменная j увеличивается с 1 до length(s) *}
    If Not(s[j] In pr) Then
      sl := sl + s[j]
    Else Begin
      If length(sl) = 3 Then
        writeln(sl);
  sl := '';
End;
  readln
  End....