For8. даны два целых числа a и b (a < b). найти произведение всех целых чисел от a до b включительно.

Var a,b,c,i:integer;
begin
readln(a,b);
c:=1;
for i:=a to b do begin
d:=i*b;
b:=d;
end;
write(c);
end.