помогите переписать эту программу с помощью оператора FOR и repeat в турбо паскале

var
i,n:integer;
result:real;
begin
readln(n);
result:=1;
i:=1;
while n>=i do
begin
result:=result+1/exp(3*1n(i));
i:=i+1
end;
writeln (result:10:2);
end.