Найти все трёхзначные числа которые при делении на 31 дают в остатке 25

Begin

for var i:=100 to 999 do

if (i mod 31 = 25) then write (i+', ');

end.

118, 149, 180, 211, 242, 273, 304, 335, 366, 397, 428, 459, 490, 521, 552, 583, 614, 645, 676, 707, 738, 769, 800, 831, 862, 893, 924, 955, 986