program lab7;
var
  n, x, i : integer;
  s :real;
begin
  for n := 1 to 4 do begin
    s := 0;
    x := 2;
    while (x <= 6) do begin
      s := s + (n + 1)*exp(2*n - 1)*ln(x/2);
      writeln('x= ' + x + ', n = ' + n + ', s = ' + s);
      x := x + 2;
    end;
  end;
end.