{* Задач 242 *}

Unit ZADACH242;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, символы S,…., S. Будем рассматривать слова, образованные символами, входящими последовательность S,….., S, считая при этом, что количество символов в каждом слове не превосходит 15. а) Найти какое-нибудь слово, оканчивающееся буквой (если таких слов нет, то сообщить об этом). ');
End.

Program zadach242;

Uses zadach242.pas; {* Эту строку можно удалить *}
Uses Crt, Strings; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  str :  String;
  i   : byte;
  j   : byte;
  z   : byte;
  n   : byte;
Begin
  ClrScr; {* Стираем всё с экрана *}
  write('введите длину строки n ');
  readln(n);
  writeln('введите строку ');
  readln(str);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    If (str[i] = ' ') And (str[i - 1] = 'd') Then
    Begin
      j := i - 1;
      While (str[j]  ' ') And (j  1) Do
        j := j - 1;
      writeln('slovo okan4ivajuhee na d');
      For z := j To i - 1 Do {* Увеличиваем z от j до i с шагом 1 *}
        write(str[z]);
      break;
    End;
  ReadKey; {* Ждем нажатия любой клавиши *}
End.