var s:string;begin write('введите предложение'); readln(s);
if Pos('a', s)>0 writeln(Pos('a',s)) else writeln('Буквы "а" в предложении нет');end.