Тут две ошибки. Первая - синтаксическая, в строке 11) первый апостроф (после открывающей скобки) неверный, это обратный апостроф, а не прямой.
Вторая ошибка алгоритмическая, в операторе 8 нужно присвоить переменной не ноль, а единицу. Ноль мы присваиваем для вычисления сумм, а для произведений надо присваивать единицу.
Вводим в строку следующее:
> [print];[slovo].
===== PascalABC.NET =====
begin
var F: integer-> integer := k -> Range(2, k).Product;
var p := 1.0;
for var j := 2 to 4 do
begin
var s := 0.0;
for var k := -1 to 1 do
s += 2 ** k / (Abs(k) + F(j));
p *= s
end;
Print(p)
end.
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub