Замена repeat и until

[Loqwer78rus]

if F(a)*F(b)<0 then
  begin
   repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
   until b-a<e;
   x:=(a+b)/2;
  end;

Можно ли repeat и until заменить другими циклами ?

[Arigato]

Можно заменить на while, но осторожно. Дело в том, что блок repeat ... until всегда выполняется хотя бы один раз, а проверка условия происходит после его выполнения. Тело же цикла while может не выполниться ни разу, а проверка условия происходит до выполнения тела цикла.