С защитой от ^дурака^

Ответ:

begin

 var count := 0;

 var num := 0;

 var s: integer;

 repeat

   Readln(s);

   Inc(Count);

   if (s mod 3 = 0) and (s mod 10 = 9) then

     num += s;

 until (s = 0) or (s > 300) or (count > 100);

 Println('Summa:= ', num);

end.