От 1 до n вывести все числа, которые кратны 3

Var n,i:integer; begin  read(n); i:=1; repeat    begin    if i mod 3=0 then    writeln(i);  end; i:=i+1; until n<i end.