Var
st, s: String;
i, c, p: byte;
Begin
writeln('Введите текст:');
readln(st);
c:=0;
i:=1;
{c - количество встречающихся сочетаний символов "пробел" и "не пробел"}
while ((c < 2) and (i < length(st)-1)) do
begin
{если текущий символ - пробел, а следующий - не пробел, значит начинается очередное слово:}
if (st[i]=' ') and (st[i+1]<>' ') then c:=c+1;
i:=i+1;
end;
if (c<2) then writeln('В строке нет третьего слова')
else
begin
{копируем в строку s из st все символы начиная со второго встретившегося сочетания "пробел"-"не пробел"}
s:=copy(st,i,length(st)-i+1);
{p - позиция пробела в строке s}
p:=pos(' ', s);
{если есть ещё пробелы (p<>0),то удаляем все символы после пробела (остается третье слово):}
if p <> 0 then delete(s, p, length(s)-p+1);
writeln('Результат');
for i:=length(s) downto 1 do
write(s[i]);
end;
readln;
End.