паскаль найдите все пятизначные числа которые делении на 133 дают в остатке 125 а при делении на 134 в остатке 111

var i:integer;beginfor i:=10000 to 99999 doif (i mod 133=125) and (i mod 134=111)then writeln (i);end.