Developing.ru

Пробивал сделать прогу по этой задачи: Дано натуральное число n. Обчислить 1*2+2*3*4+…+n(n+1)…2n. При выводе результата выводится число совсем левое Текст программы ниже:
PROGRAM zadanie;
var i, ip, ik, j, t, s, n: integer;
rez: real;
begin
readln (n);
ip:=1;
ik:=1;
s:=1;
t:=2*n;
rez:=0;
for j:=1 to t do
begin
ik:=ik+j;
for i:= ip to ik do
begin
s:=s*ip;
end;
rez:=rez+s;
end;
writeln (rez:5:0);
readln;
end.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
P. S. Если можно то на халяву

1. Устное предупреждение за неинформативное название темы.
2. Все проще:

Не работает почемуто появляется 104 ошибка в строке inc(res,x);
Как исправить?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Всё. Есть контакт. Спасибо за помощь