Написать программу поиск 4-х значного числа, которое при делении на 134 дает в остатке 11

Var i:integer;
begin
for i:=1000 to 9999 do
 if i mod 134 = 11 then writeln(i);
end.

Результат (только начало и конец, т.к. чисел много):
1083
1217
1351
...
9659
9793
9927