{* Задача 120 *}

Program zadach120;

Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a  : String;
  aa : String;
  b  : String;
  i  : longint;
  l  : longint;
  o  : longint;
  oo : longint;
Begin
  clrscr; {* Очистка экрана *}
  write('введите предложение: ');
  readln(a);
  write('введите букву: ');
  readln(aa);
  l := length(a);
  If length(aa) > 1 Then
    halt;
  If a[l]' ' Then
  Begin
    inc(l); {* Прибавим к l единицу *}
    a[l] := ' ';
  End;
  For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
    If a[i] = ' ' Then
    Begin
      If b[1] = aa Then
        writeln(b)
      Else inc(o); {* Увеличиваем o на 1 *}
        inc(oo); {* oo++ *}
      b := '';
    End;
    Else b := b + a[i];
      If o = oo Then
        write('таких слов не обнаружено!');
  readln; {* Приостановка программы. Ожидание Enter *}
End.