Помогите пожалуйста заменить в тексте программы оператор "brake" на "while"

[Gybert]

Вот сама програмка
var y,e,y1:real;
begin
y:=1;
e:=1e-5;
while true do begin
y1:=y*(1.5-sqr(y));
Writeln('y1=',y1:6:6);
if abs(y1-y)<=e then break
else y:=y1;
Writeln('y=',y:6:6)
end;
Writeln('Rezyl`tat:',y1:6:6,', kontrol`noe znachenie -',1/sqrt(2):6:6);
Readln;
end.

[Gybert]

Вот сама задача, но мне нужно использовать цикл "while"

[Serge_Bliznykov]

так?

var y,e,y1:real;
begin
  y:=1;
  e:=1e-5;
  y1:=y*(1.5-sqr(y));
  while abs(y1-y)>e do begin
    y1:=y*(1.5-sqr(y));
    Writeln('y1=',y1:6:6);
    y:=y1;
    Writeln('y=',y:6:6)
  end;
  Writeln('Rezyl`tat:',y1:6:6,', kontrol`noe znachenie -',1/sqrt(2):6:6);
  Readln;
end.

[evg_m]

var y,e,y1:real;
begin
  y:=1;
  e:=1e-5;
  
  y1:=y; // копируем нач.зн. в y1
  y:=y1+2*e; //задаем так чтобы войти в цикл 
  while abs(y1-y)>e do begin
    y:=y1;
    Writeln('y=',y:6:6);
    y1:=y*(1.5-sqr(y));
    Writeln('y1=',y1:6:6);
//    if abs(y1-y)<=e then break
//    else y:=y1;
  end;
Writeln('Rezyl`tat:',y1:6:6,', kontrol`noe znachenie -',1/sqrt(2):6:6);
Readln;
end.

to Serge_Bliznykov

  while abs(y1-y)>e do begin
    y1:=y*(1.5-sqr(y));
    Writeln('y1=',y1:6:6);
    y:=y1;  ========> abs(y-y1)====0  !!! 
    Writeln('y=',y:6:6)
  end;

[Serge_Bliznykov]

evg_m, согласен. я накосячил с условием!