Question

Var f : real ; i : integer;
f: = 1; i: =2;
while i > 1 do begin
f: = f + 1 / i;
i : = i -1;
end;

Answer 1

Var f : real ; i : integer;
f: = 1; i: =2;
while i > 1 do begin 
f: = f + 1 / i; 
i : = i -1; 
end;
Write(f:0:3);
end.
Ошибка в том,что нет окончания.