Реализация математического расчета

[Slavik]

Здраствуйте. Захожу в ваш раздел впервые. Скажите как можно провести подсчет етой формулы в паскале. Мне кажеться что надо найти коефициенты прогрессий и первые значения. Но дело в том что я уже и забыл лексику паскаля. Подскажите пожалуйста, правмльный ли у меня ход мыслей, и дайте пожалуйста хотя бы шаблончик: const=..., var:, begin и т.д.

[ОДИНОЧЕСТВО В СЕТИ]

var i,j,m,n,k:integer;
     x,s,p:real;
function Fac(n: integer): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do f := f * i; 
Fac := f; 
end;
begin
s:=0;
p:=1;
m:=8;
i:=5;
j:=9;
x:=0.8; 
For k:=1 to m do
s:=s+((1-x)+fac(k))/(sqr(k-1)+2);
for n:= i to j do
p:=p/fac(n-3);
s:=s-p;
Writeln('sum=',s:6:3);
readln;
end.