Question

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

Answer 1

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.