Программа на Pascal будет выглядеть следующим образом:

program LastOIndex;
var
word: string;
i, lastIndex: integer;
begin
lastIndex := -1;
write('Введите слово: ');
readln(word);
for i := 1 to length(word) do
begin
if word[i] = 'о' then
begin
lastIndex := i;
end;
end;
if lastIndex <> -1 then
writeln('Номер последней буквы "о" в слове: ', lastIndex)
else
writeln('В слове нет буквы "о"');
end.

Пользователь вводит слово, программа проходит по каждой букве и сохраняет индекс последней буквы "о". Если не найдено ни одной буквы "о", программа сообщает об этом.