Question

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

Answer 1

Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.