Составьте программу вычисления суммы 1+1/2+1/3+1/4+...1/10 с использованием оператора while
Пожалуйста!!!

var    i: integer;    x: real;begin    x := 0;    i := 0;    while i < 10 do    begin        inc(i);        x := x + 1/i;    end;    writeln(x);end.