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