Question

Cоставте программу , которая выводит на экран нечётные числа от 1 до 50 в порядке убывания

Answer 1

Var
 i:integer;

begin
 for i:=50 downto 1 do
  if i mod 2 <> 0 then
   write(i,' ');
end.