program neznayABC;
var i,s:integer;
begin
s:=0;
for i:=1 to 30 do begin
if ((i)mod(3)=0) and (i=2) and (i=4)and((i)mod(7)=0)and((i)mod(7)=2)and((i)mod(7) =4) then s:=s+4 ;
if ((i)mod(3)=0) and ((i)mod(2)<>0) then s:=s+6 ;
if (i)mod(3)=1 then s:=s+7 else s:=s+7;
end;
writeLN('всего незнайка выучит ',s,' слов') ;
end.

вроде работает, это 939512398