Нужна помощь, помогите плизз задачка по паскалю

А сам три строчки никак написать не можешь ?

program prim;
var s:real;
var p:integer;
var a:integer;
begin
s:=1;
a:=1;
for p:=1 to 8 do
begin
a:=a*3;
s:=s+1/a;
end;
writeln('Результат = ',s);
end.