Ответ:
я вроде уже решал такую задачу… Ту в условиях только добавилась фраза «по модулю». Скорректировал программу с учетом уточнения в задании.
var
a, n, i : integer;
begin
repeat
read(a);
if (abs(a) <= 30000) and (a <> 0) then begin
if (a mod 5 = 0) or (a mod 9 = 0) then n += 1;
i += 1;
end;
until (a = 0) or (i = 1000);
writeln(n);
end.