Дана строка состоящая из слов набранных заглавными буквами и разделенных пробелами найти количество слов которые содержат ровно 3 буквы "а"

Dвот решение данной на языке pascal: var s: string; k,n,i: longint; begin   read(s);   k: =0;   n: =0;   for i: =1 to length(s) do     begin     if ord(s[i])=65 then k: =k+1;     if ord(s[i])=32  then       begin        if k=3 then n: =n+1;       k: =0;     end;     end; writeln(n); end. 

V1=s1/t1           s-размер файла или обьём   v1-cкорость  s1=i1* a1         i-глубина кодирования     a- разрешение                            t1=75 сек v2= s2/t2 s2=i2*a2       по условию   i2=2*i1     a2=4a1 s2=2*i1*4a1 v2/v1= s2*t1/ t2*s1 v2/v1=2*i1*4a1*75/ i1*a1*60 v2/v1=8*75/60=600/60= 10 ответ в   10 раз

Var     a: string;     c: array['0'..'9'] of integer;     i: integer; begin write('введите натуральное число: '); readln(a); for i: = 1 to length(a) do       if ('0'< =a[i])and(a[i]< ='9') then             c[a[i]]: =c[a[i]]+1; for i: = 1 to c['9'] do       write('9 '); for i: = 1 to c['6'] do       write('6 '); for i: = 1 to c['3'] do       write('3 '); writeln; for i: = 1 to c['0'] do       write('0 '); for i: = 1 to c['2'] do       write('2 '); for i: = 1 to c['4'] do       write('4 '); for i: = 1 to c['6'] do       write('6 '); for i: = 1 to c['8'] do       write('8 '); end. введите натуральное число: 59012549703651409725190351902745210974651094251087498015794801574801974850197423 9 9 9 9 9 9 9 9 9 9 9 6 6 3 3 3 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 6 6 8 8 8 8 8