Составить программы, заранее 1) найти факториал числа n 2) найти сумму чисел в промежутке от m до n

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.