Написать программу выводо на экран элементов кратных числу 3
Pascal

program lol;var a:integer;beginfor a:=100 downto 1 dobeginif a mod 3 = 0 thenwriteln(a);end;end.P.S. в строке for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает