С2

Проитерируемся от a до b и будем перемножать переменную цикла на какой-то ответ.
Главное сначала Присвоить ответу "1", ибо если мы будем умножать на 0, ничего хорошего не выйдет.
-----------------
var
 a, b, x, i:longint;
 begin
 readln (a,b);
 x:=1;
 for i:= a to b do
 x:=x*i;
 writeln(x);
 end.