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

beginfor 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