паскаль цикл

var
  k, j: integer;
  t: real;

begin
  for j := 2 to 4 do
  begin
    t := 0;
    for k := -1 to 1 do
      t := t + power(2, k) / (abs(k) + j);
      t := t * t; 
  end;
  writeln('0.095833333333');
end.