Răspuns:
program literaA;
var propozitia:string;
nrl,i:integer;
begin
write('propozitia :');readln(propozitia);
nrl:=0;
for i:=1 to length(propozitia) do
if ((propozitia[i]='a') or (propozitia[i]='A')) then
nrl:=nrl+1;
write('Numar de a-uri ',nrl);
readln;
end.