Дано действительное число 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 <= a) do      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.