uses sysutils;
var n, i: integer;
var str: string;
var sum: integer = 0;
begin
readLn(n);
for i in [0..n-1] do
begin
readLn(str);
inc(sum, ord(ansiLastChar(str) = 'a'));
end;
writeLn(sum);
end.
dXNlcyBzeXN1dGlsczsKCnZhciBuLCBpOiBpbnRlZ2VyOwp2YXIgc3RyOiBzdHJpbmc7CnZhciBzdW06IGludGVnZXIgPSAwOwpiZWdpbgogIHJlYWRMbihuKTsKICBmb3IgaSBpbiBbMC4ubi0xXSBkbwogIGJlZ2luCiAgICByZWFkTG4oc3RyKTsKICAgIGluYyhzdW0sIG9yZChhbnNpTGFzdENoYXIoc3RyKSA9ICdhJykpOwogIGVuZDsKICB3cml0ZUxuKHN1bSk7CmVuZC4=