program Calculate_S; var n, i: integer; S: real; begin writeln′Введитенатуральноечислоn:′'Введите натуральное число n:'′Введитенатуральноечислоn:′; readlnnnn;
i := 1; S := 0;
while i <= n do begin S := S + 1 / sqr2∗i+12 * i + 12∗i+1; i := i + 1; end;
program Calculate_S;
var
n, i: integer;
S: real;
begin
writeln′Введитенатуральноечислоn:′'Введите натуральное число n:'′Введитенатуральноечислоn:′;
readlnnnn;
i := 1;
S := 0;
while i <= n do
begin
S := S + 1 / sqr2∗i+12 * i + 12∗i+1;
i := i + 1;
end;
writeln′S=′,S'S = ', S′S=′,S;
end.