Нужен пример цикла repeat … until

var
  i: byte;
  S: real;
  
begin
  i := 0;
  S := 0;
  while i < 14 do
  begin
    inc(i);
    S := S + 1 / i;
  end;
  writeln;
  write('Сумма первых 14 членов гармонического ряда: ', S)
end.

{While5. Дано целое число N (> 0), являющееся некоторой степенью 
числа 2: N = 2K. Найти целое число K — показатель этой степени.}
 
var
  N, k, d, r, i: integer;
  
begin 
  repeat
    writeln('Введите целое положительное число:');
    write(' N = ');
    readln(N);
    D := N;
    r := 0;
    i := 0;
    repeat
      inc(i); 
      r := D mod 2;
      D := D div 2 
    until (D = 1)or(r > 0);
    if not ((D = 1)and(r = 0)) then 
      writeln('Это число не является степенью двойки!');
    writeln;
  until (D = 1)and(r = 0);
  write('Показатель степени: ', i)
end.  
 
{While10. Дано целое число N (> 1). Найти наибольшее целое 
число K, при котором выполняется неравенство 3K < N. }
 
var
  N, k: integer;
  
begin
  writeln('Введите целое число N (> 1):');
  write(' N = ');
  readln(N);
  K := 1;
  repeat
    inc(K)
  until 3 * K >= N;
  writeln;  
  write('Ответ: ', K - 1)
end.
 
{While14. Дано число A (> 1). Вывести наибольшее из целых 
чисел K, для которых сумма 1 + 1/2 + … + 1/K будет меньше 
A, и саму эту сумму. }
 
var
  K: integer;
  A, S, maximum: real;
  
begin
  writeln('Введите целое положительное число A (> 1):');
  write(' A = ');
  readln(A);
  K := 1;
  S := 1;
  repeat
    maximum := S;
    S := S + 1 / (K + 1);
    inc(K)
  until S >= A;
  writeln;  
  writeln('Ответ:');
  writeln(' число: ', K - 1);
  write(' сумма: ', maximum)
end.