Кажется, ты ошибся. 4 слагаемое должно быть 8/(9*81)
s:=0;
for i := 1 to 5 do
begin
a := 2*i / (2*i+1) / (exp (i*ln (3))); // exp (i*ln (3)) = 3^i, но в паскале нет степеней.
if (i mod 2 = 0) then a := -a;
s:=s+a;
end;
write (s);
END.
А вот форматов вывода в паскале я не знаю. С этим сам разбирайся.