Посмотрите пожалуйста правильно ли написана программа,если нет укажите ошибку.

[Викулька]

Написать программу, вычисляющую сумму
1/1*2 +1/2*3 +1/3*4+1/4*5+…. с точностью Е=10-³


s=0;
i=1;
while int(s*1000)=s*1000 do (пока целая часть выражения, полученного в результате вычисления по формуле и умноженная на 1000, равна самому выражению, умноженному на 1000, делать следующее...)
begin
s=s+(1/(i^(i+1)); (к сумму, изначально равной нулю прибавлять вычисления по формуле, причем после каждого вычисления i увеличится на 1 - и формула будет выполняться снова)
i=i+1;
end; (как только получится, что, например, 125 меньше 125, 3, - цикл прервется)
write s;

[GIO]

что такое write S; ?!?!??