Дана строка содержащая любые символы кроме русских букв.
Написать функцию, которая в заданной строке находит количество больших и маленьких согласных английских букв.
Использовать заголовок

графические примитивы  это заранее определенные элементы, которые можно поместить в  чертеж при одной команды. каждый графический примитив формируется на основании описания объекта.            примитивы  можно классифицировать:

односложные  и составные; плоские   и объемные (3d)

большинство  команд обрисовки базовых примитивов собраны в подменю  рисовать. каждый примитив формируется своей командой, чаще всего по имени с примитивом. для некоторых  примитив  пользователю предлагается несколько способов построения одного и того же примитива по различным исходным данным, например окружность можно построить по центру и радиусу, по центру и диаметру, по трем точкам на плоскости и т.д. каждый примитив обладает рядом свойств (например, принадлежность слою, цвет, видимость, тип линии и т.некоторые команды требуют ввода дополнительных опций в командную строку.

источник :  

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))