паскаль.Прога из 2ух частей .факториалы массива

[SeNeMka]

Program name;
uses crt;
var
f,s,i,j,M,N:integer;
function fact(j : integer) : longint;
begin
i:=1;
for j:=1 to M do
i:=i*j; Вот думаю над этим....что-то не так.
end;
BEGIN
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=M to N do
if i mod 2 = 0
then s:=s+fact(i);
Writeln('Symma =',s);
end.

Понял про функцию...

[alex_fcsm]

Program name;
uses crt;
var
s,i,j,M,N:integer;

function fact(n : integer) : longint;
var p,s:integer;
begin
 s:=1;
 for p:=1 to n do
  s:=s*p;
  fact:=s;
end;

BEGIN
clrscr;// ты вроде объявил модуль crt и забыл про него
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=M to N do
if i mod 2 = 0 then s:=s+fact(i);
Writeln('Symma =',s);
END.

[SeNeMka]

fact:=s;

Вот что я не дописывал...ну и цикл для i немного неверен у меня был =(...А fact в конце как ра3 должно значение и присвоиться !!!...
Спасибо...Благодаря тебя я ра3обрался с функциями...(Ну более менее разобрался..)