Вывести на экран все трехзначные числа которые делятся на 11. Паскаль

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