Вход Решение
k 10 10 11
s 10 10+10 = 20 20+11=31
Напечатано будет 31.
Только почему цикл от 10 до 11 (проверь строчку <span>for k=10 to 11 do)</span>
Как обновить поток чтения я хз, поэтому тупо закрыл и открыл снова :)))
Var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.
Представить систему как чёрный ящик - это значит указать её входы и выходы