Question

Помогите пожалуйста составить программы, заранее благодарю
1) Найти факториал числа N
2) Найти сумму чисел в промежутке от M до N

Answer 1

1)
var f,n,i:integer;
begin
readln(n);
f:=1
for i:=2 to n do f:=f*i;
writeln('Factorial= ',f);
end.

2)
var s,m,n,i:integer;
begin
readln(m); readln(n);
s:=0;
for i:=m to n do s:=s+i;
writeln('Summa= ', s);
end.