Написать программу для нахождения произведения от m до n.

C++:
#include <bits/stdc++.h>
using namespace std;
int main()
{   
int m,n,i,k=1;   
cin>>m>>n;   
for (i=m;i<=n;i++)       
k=k*i;   
cout<<k;
}

Pascal:
var m,n,k:longint;
begin
k:=0;
read (m,n);
for i:=m to n do
k:=k*i;
write (k);
end.