1) вывести чётные числа с 18 до 62 с использованием оператора цикла "for" 2)вывести нечётные числа в обратном порядке с 31 до 1 с использованием оператора цикла "for".

1)
var i:integer;
begin
for i:=18 to 62 do
 if i mod 2 = 0 then write(i,' ');
end.
2)
var i:integer;
begin
for i:=31 downto 1 do
 if i mod 2 = 1 then write(i,' ');
end.