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

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