Для решения этой задачи можно использовать следующий алгоритм на языке программирования Паскаль:

program LastWordInString;
var
str: string;
lastWord: string;
i: integer;
begin
str := 'чёрная машина припарковывается и сигналит';
lastWord := '';
for i := length$str$ downto 1 do
begin
if (str[i] = ' ') and (lastWord <> '') then
break
else if str$$i$$ <> ' ' then
lastWord := str$$i$$ + lastWord;
end;
writeln${}^{\prime }Последнеесловостроки{:}^{\prime },lastWord$;
end.

Этот код считывает строку из переменной str, затем проходит по символам этой строки с конца к началу. Он ищет пробелы и, если находит слово между пробелами, сохраняет его в переменной lastWord. Когда он находит первый пробел после последнего слова, он останавливается и выводит последнее слово строки на экран.

После запуска программы на выполнение будет получен результат, что последнее слово строки "сигналит".