Решить задачу в Turbo Pascal.
Задача: Поиск букв в слове. Напишите программу для проверки, есть ли в данном слове буква «а». Если есть, то найдите номер первой из них.

Вы не могли бы написать так, как нужно вводить в самом турбо паскале? у меня с программированием все очень плохо, не понимаю как это все и в каком порядке мне это нужно вводить

var a:string; var i:integer; begin writeln('‚Введите слово;'); read(a); for i:=1 to length(a) do begin if (a[i]='а') or (a[i]='А') then begin writeln('Найдена буква а, ее позиция: ' , i); break; end; end; end.

Вроде до меня дошло, спасибо

извини ,у меня не получалось написать ответ так. всё правильно

beginvar a:string;var i:integer;read(a);for i:=1 to length(a) dobegin if a[i] = 'a' thenbeginwriteln('Найдена буква а, ее позиция: ' , i);break;end;end;end.