Проверить существуют ли натуральные числа a< 100 для которых a mod7=3

Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94
P.S. Pascal ABC
var a:integer;
begin
for a:=1 to 100 do
begin
if (a mod 7 =3)then writeln(a);
end;
end.