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

Var
   k: integer;
   s: real;
begin
   s:=0;
   k:=0;
   repeat
      k := k + 1;
      s := s + 1/k;
   until k = 10;
   writeln(s);
end.