Составить прогу в паскале по ниже. найти все числа кратные 3

Var
  i: integer;

begin
  for i := 100 to 999 do
    if i mod 3 = 0 then writeln(i);
end.