Программу на pascal.
Напишите условие выбора чисел больших 100 и кратных 3

var a,n:integer;beginwriteln('введите число меньше 100 до которого проверять');readln(n);if (n<100) or (n=100) then writeln('таки не кошерный ответ получается');for a:=n downto 100 do beginif (a mod 3 = 0) and (n>100)then writeln(a)end;end.

var a,n:integer;beginwriteln('введите число больше 100 до которого проверять');readln(n);for a:=n downto 100 do beginif (a mod 3 = 0) then writeln(a);end;end.