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

Uses crt;
var a,b,i:integer;
pr:longint;
begin
readln(a,b);
pr:=1;
for i:=a to b do
pr:=pr*i;
writeln(pr);
end.