Найти все четырехзначные числа, кратные 11. через for

11,22,33,44,55,66,77,88,99.

FOR много где есть, но, думаю, надо на Паскале:)

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