{* Задача 205 *}

Unit ZADACH205;
Interface
Implementation
Begin
 writeln('Дана последовательность слов, между словами пробел, за последним словом точка.Напечатать текст, состоящий из последних символов всех слов. ');
End.

Program pas13511;

Uses zadach205.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s :       String;
  x :       integer;
  y :       integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Введите набор слов: ');
  readln(s);
  s[length(s)] := ' ';
  While ( s  '' ) Do
  Begin
    x := Pos(' ', s);
    write(s[x - 1]);
    delete(s, 1, x);
  End;
  readkey; {* Ждем нажатия любой клавиши *}
End.