• Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.
• Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.

var a,b,i:integer;beginwrite ('Введите два целых числа (A>B): ');readln (a,b);for i:=a downto b doif i mod 2<>0 then write (i,'   ')end.vara,b,i:integer;p:longint;beginwrite ('Введите два целых числа (A>B): ');readln (a,b);p:=1;for i:=a downto b do p:=p*i;writeln ('Произведение всех целых чисел от ',a,' до ',b,' равно ',p)end.