t_13_24_b_v1_volkovich

function younger(gr:group;d:date):integer;
     var i,j:integer;
     begin
       j:=0;
       for i:=1 to 25 do
         if (gr[i].sex=female) and ((gr[i].birthday.year>d.birthday.year) or ((gr[i].birthday.year=d.birthday.year) and (gr[i].birthday.month>d.birthday.month)) or
             ((gr[i].birthday.year=d.birthday.year) and (gr[i].birthday.month=d.birthday.month) and (gr[i].birthday.day>d.birthday.day))) then k:=k+1;
     end;