Программа на паскале

[Absent]

1.Рассчитать сумму первых 5 членов ряда
2.Рассчитать сумму бесконечного ряда, Суммирование прекратить когда очередной член ряда по модулю станет меньше, чем 0.000001.

y=1+1/2+1/4+1/8+1/16.......(до бесконечности)

При расчете y использовать функцию.
Язык Паскаль.
Помогите пожалуйста.
Вот что получилось у меня(Не работает):

Programm g;
uses crt;
counst
e=0.000001;
Var
i,n:integer;
y:real;
function f(n:real):real;
var
k:integer;
begin
k:=1;
for i:=1 to n do
begin
f:=f+1/k;
n:=k+1;
end;
end;
begin
writeln(f(5),'  cyMMa 5-Tu);
n:=((1/e) mod 1);
y:=f(1/e);
writeln(y);
end.

[Stilet]

Предлагаю так:

Programm g;
uses crt;
Var i,n:integer; y:real;
 function f(n:real):real; var k:integer; begin  f:=1/n; end;
begin
 i:=1; while i<16 do begin
  y:=y+f(i);
  i:=i*2;
 end;
writeln(y);
end.

Не тестировал...

[Mikhail Bakurov]

program Project1;
uses crt;

const
e=0.000001;
var
n:integer;
sum:real;

function f(n:integer):real;
begin
Result:=1/((2*n)-1);
end;

begin
sum:=0;n:=1;
while ((abs(f(n))>e)) do
begin
sum:=sum+f(n);
if n=5 then WriteLn(sum,'  ', n);
n:=n+1;
end;
WriteLn(sum,'  ',n);
Readln;
end.

[Absent]

Спасибо большое!