Напишите программу которая в последовательности целых чисел определяет количество трехзначных чисел кратных 7​

Можешь не благодарить

var

a,n:integer;

begin

readln(a);

while a<>0 do

begin

if (a mod 5=0)or (a mod 7=0)then inc(n);

readln(a);

end;

writeln(n);

end.