Дано действительное число A. Требуется найти первое значение числа N, при котором сумма S=1+1/2+1/3+…+1/N превышает A. Программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием. В ABC Pascal

Var a, s: real; i: longint;
begin
     readln(a);
     {С предусловием}
     i := 2;
     s := 1;
     while(s      begin
          s := s + 1 / i;
          i := i + 1;
     end;
     writeln(i - 1);
     {С постусловием}
     i := 1;
     s := 0;
     repeat
           s := s + 1 / i;
           i := i + 1;
     until(s > a);
     writeln(i - 1);
end.