program PascalGuru;
uses crt;
var S:array[1..50] of string[15]; {переменная массива слов (кол-во букв в слове <=15)}
kol,i,n:integer; {переменные для циклов}
temp:string[15];

begin
write('n= '); readln (n); {считываем размер массива}

writeln ('Vvedite elementy massiva S: ');
for i:=1 to n do
begin
write ('S[',i,']=');
readln (S[i]); {считываем элементы массива}
end;

clrscr;
writeln ('Vot vvedennyi vami massiv S: ');
for i:=1 to n do writeln (S[i]); {выводим массив на экран}

kol:=0;
for i:=1 to n do
begin
temp:=S[i];
if (temp[1]='B')and(temp[length(temp)]='C') then inc(kol);
end;

writeln;writeln;

writeln('Otvet: ',kol); {выводим на экран результат = кол-во}

readln;
end.