Составьте программу вычисления суммы 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.