Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В...

Question

Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).<br> Входные данные: вывести произведение всех целых чисел от А до В включительно.

Answer 1

Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
end.