Ответ:

Питон

   print(input().lower().count('a'))

Паскаль

begin

 var s := readstring();

 print(s.count(x -> x = 'A') + s.count(x -> x = 'a'))

end.

Объяснение: