4σ (s! +s) s=1 найдите ошибку, program mar; uses crt; var f,s: integer; k: real; begin clrscr; f: =1; k: =0; for s: =1 to 4 do begin f: =f*s; k: =k*(f+s); end; writeln('k =',k: 4: 2); readkey; end.

Вот так?

Program solution;
Uses Crt;
Var s : byte;
res, fact : word;

Begin
fact := 1;
res := 0;

For s := 1 to 4 do
        Begin
        res := res + s + fact;
        fact := fact * (s + 1);
        End;
Write(res);
ReadKey;
End.