от 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<iend.