Вычислите сумму: 1+1/2+1/3+1/4+…+1/10. решите в 2 вариантах - с использованием операторов while и repeat.

Var
i:integer;
s:real;
begin
i:=1; s:=1;
while i<>10 do
begin
i:=i+1;
s:=s+1/i;
end;
writeln('Вычисленно с цикла while: ',s);
i:=1; s:=1;
repeat
i:=i+1;
s:=s+1/i;
until i=10;
writeln('Вычисленно с цикла repeat: ',s)
end.