Программа на Turbo Pascal:

program FindLetterA;
var
word: string;
i: integer;
found: boolean;
begin
found := false;
writeln('Введите слово:');
readln(word);
for i := 1 to length(word) do
begin
if word[i] = 'а' then
begin
writeln('Буква "а" найдена на позиции: ', i);
found := true;
break;
end;
end;
if not found then
writeln('Буква "а" не найдена в данном слове.');
readln;
end.

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