[Kapitoshka438]

Код:

var
  I: Integer;
  S: Double;
begin
  S := 0;
  for I := 1 to 25 do
    S := S + I * I / 3 + Cos(I);
  Write(S);
end.