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

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.Ошибка в том,что нет окончания.