Дано предложение-строка. подсчитать количество слов, начинающихся с буквы 'а' напи

var c,a,n,i:longint;beginread(n);read(a);c:=a;for i:=2 to n dobeginread(a);c:=c+a;end;write(c);end.