Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
Ну, я вопрос не так хорошо понял. Думаю что в *С. *С = градусы Цельсия.
Это фотография, ответ под буквой а)