{contar a quantidade de letras "a" existente na cadeia de caracteres}
Program Pzim ;
var
frase:string; {variavel que recebe a cadeia de caracteres}
i, conta, j:integer; { "i", contador do for, "j" recebe a quant. de
caracteres da cadeia e conta, recebe a quantidade de letraas a}
Begin
writeln('Digite uma palavra ou frase : '); {solicita que digite os caracteres}
readln(frase); {usar o readln, pois o read para no primeiro espaço e em frases
nçao ia receber todos os caracteres}
j:=length(frase); {a função length vai contar quantos caractes existe na variavel
frase e atribuir esse numero a variavel j}
for i:=1 to j do {'i' vai de um até 'j'}
begin
if ((frase[i] = 'A') or (frase[i] = 'a')) then {se na posição [i], de 1 até 'j' ,
for igual a letra 'a', conta recebe +1}
conta:=conta+1;
end;
writeln('na expressão : "',frase,'"'); {mostra a frase digitada}
writeln('Existem ',conta, ' letras "A"'); {mostra quantos caracteres "a" existe}
End.
