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

Эта последовательность образована путем последовательного деления единицы на три в нулевой, первой, второй и т.д., до 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