За Дев Паскал

[LipSoFAnAnGel]

Здравейте! Може ли някой да ми помогне за следната задача по информатика на "Дев Паскал":
Да се направи програма за намиране стойността на числовия ред: P=1/10*11+1/20*21+1/30*31+..1/n*(n+1), където n се въвежда от потребителя и, ако той не се дели на 10 трябва да излиза следното съобщение: "Невалиден n". Благодаря на всеки, който се опита да помогне

[Chacho]

program nekva_zad;

var
P,n,i, : integer;
begin
P=0;
writeln('Molq vavedete "n"');readln(n);
for i:= 1 to n do
P:=P + 1 div (10*i*(10*i+1))
if P mod 10 <> 0 then
writeln ('Nevaliden "n"');
else writeln(P);
end.

Не съм сигурен, че е така, но не ми се сваля Паскал. Compile, run и ми кажи кво е излязло

[LipSoFAnAnGel]

програмата няма грешки, но изписва ми напиши число , написвам го и след това си стои само така...