Program mar; uses crt; var f,k: integer; s: real; begin clrscr; f: =1; s: =1; for k: =1 to 3 do begin f: =f*k; s: =s*(2*f)/(k*k*k*k+k); writeln('k = ',k ); readkey; end. найдите ошибку, , программа не идет.

Необходимо поставить ещё один end. Ты цикл не закрыла.

program mar;

uses crt;

var F,k:integer;

S:real;

begin

clrscr;

F:=1;

S:=1;

for k:=1 to 3 do

begin

F:=F*k;

S:=S*(2*F)/(k*k*k*k+k);

writeln('k = ',k );
end; // тебе хватало этого энда

readkey;

end.