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

Var i:integer;
begin
for i:=10000 to 99999 do
if (i mod 133=125) and (i mod 134=111)
then writeln (i);
end.