Помогите составить текст программы в паскале!!!

Question

Составить программу вычисления приближенного значения числа п, используя равенство ??1+1/22+1/32+…+1/152 (скласти
програму обчислення
наближеного значення числа п, використовуючи рівність).

Митя · Accepted Answer

program PR1;
var
Npi:real; {значение накопленной суммы}
I:byte;{счетчик цикла}
begin
Npi:=1.; {начальное значение}
for I:=22 to 152 down 10 do Npi:=Npi+1/I; {накопление суммы}
write('Пи='.Npi); {вывод результата}
readln;{пауза до нажатия на Enter}
end.{конец программы}