t_11_22_a_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать ф-ию или процедуру и решить с её поощью задачу}

{а: если в первой половине строки s менее 12 цифр, в последней четверти строки t менее нет символов от 'a' до 'z', вычислить количество символов '*', входящих в среднюю треть строки s}
const n=60;
type символы = set of char;
var c:char; sum:integer; цифры, буквы, сим: символы;
function countsym(s:строка; ch: символы; imin,imax:integer):integer;
       var i,j:integer;
       begin
            j:=0;
            for i:=imin to imax do
                if s[i] in ch then j:=j+1;
            countsym:=j;
       end;
begin
    read(c); сим:=[c];
    цифры:=['0','1','2','3','4','5','6','7','8','9'];
    буквы:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z']
    if (countsym(s;цифры;1,30)<12) and (countsym(t;буквы;46,60)=0) then writeln(countsym(s;сим;21,40));
end.