Помогите решить паскаль!

вычислить с помощью оператора цикла сумму и произведение последовательности чисел

1 , 1/3 , 1/9,...., 1/243

Эта последовательность образована путем последовательного деления единицы на три в нулевой, первой, второй и т.д., до 5, степени.


Во вложении приведены контрольные значения, полученный с помощью программы компьютерной математики Maple15.

var
  i:integer;
  s,p,k:real;
begin
  s:=0; p:=1; k:=1;
  for i:=0 to 5 do begin s:=s+k; p:=p*k; k:=k/3 end;
  Writeln(S=,s,, П=,p)
end.

Результат
S=1.49794238683128, П=6.96917193762563E-08