program CountLetterA;

var
sentence: string;
countA: integer;
i: integer;

begin
countA := 0;

writeln('Enter a sentence: ');
readln(sentence);

for i := 1 to length(sentence) do
begin
if (sentence[i] = 'a') or (sentence[i] = 'A') then
countA := countA + 1;
end;

writeln('Number of letter "A" in the sentence: ', countA);
end.