Работа с циклами\массивами. Выручайте.

[S0ft44]

Кто что знает из этих заданий помогите пожалуйста.

[Gongled]

Первая:

program lab1;
uses CRT;
var
m, n, i, z : integer;
s : real;

function fact(num : integer) : longint;
  begin
    if num <= 1 then
      fact := 1
    else
      fact := num * fact(num - 1);
  end;

begin
clrscr;

write('Введите m и n: ');
read(m,n);

for i:=m to n do
begin
     z := fact(i);
     s := s + sqr(i)*ln(z);
end;

write('Ответ: ',s);

end.

Остальные, если будет время, решу позднее.

[S0ft44]

Если взять предел m=4 n=8 он выдаст ошибку. Я сегодня написал программу мне препод сказал что там в фактериале ошибка:
uses crt;
Var
n,m,k,f:integer;
s:real;
Begin
clrscr;
repeat
write('Enter M>0,M=');
readln(m);
until m>0;
repeat
write('Enter N>M,N=');
readln(n);
until n>m;
s:=0; f:=1;
for k:=n to m do
f:=f*k;
for k:=m to n do
begin
s:=s+k*k*ln(f);
f:=f*(k+1);
end;
writeln('S=',s:0:3);
readln;
end.