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

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