найти произведение чисел от m до n

Question

найти произведение чисел от m до n

Answer 1

var mn,m,n,i:integer;

begin

readln(m,n);

for i:=m to n do

mn:=mn*i;

writeln(mn);

end.