program uzd1;{izveidot masivu,kuru no tastaturas aizpildiit ar 15
vardiem ar garumu no 5 lidz 12 simboliem.Izvadit uz ekrana cik procentuali
 katrs no vardiem satur patskanjus.}
 const n=15;
 uses crt;
 var mas:array[1..n] of string;
 s: string[12];
 i,j,count:integer;
 a:char;
begin
    clrscr;
    for i:=5 to n do
                    begin
                      writeln('ievadiet',i,'elementu===>');
                      readln(mas[i]);
                      end;
     for i:=1 to n do
         for j:=1 to length(mas[i]) do
             if mas[i,j]=a
                then inc(count);
     writeln(count);