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

Var a,b,i:integer;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
for i:=a downto b do
if i mod 2<>0 then write (i,'   ')
end.

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