ПОМОГИТЕ!

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

Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.

1+1+1+1+1+1+1+1+1+1+1+1-1

var a,b,i:integer;beginreadln(a,b);for i:=a downto b doif i mod 2 <> 0 then write(i,'  ')end.var a,b,i,p:integer;beginreadln(a,b);p:=1;for i:=b to a do p:=p*i;writeln(p)end.