Уменьшить количество циклов с трех до одного

const e=0.001; 
var
  cn1,cn2,cn3,fcn1,fcn2,fcn3,f1cn1,f1cn2,f1cn3,cn11,cn12,cn13,cncn11,cncn12,cncn13:real;
begin
  write('Введiть Cn для першого вiдрiзку [0; 0.5]: ');
  readln(cn1);
  write('Введiть Cn для другого вiдрiзку [1; 1.44]: ');
  readln(cn2);
  write('Введiть Cn для третього вiдрiзку [2.10; 2.15]: ');
  readln(cn3);
  writeln(' ');
  
  writeln('Уточнення першого корення на вiдрiзку [0; 0.5]');
  writeln(' ');
  repeat 
  fcn1:=-15*sin(3*cn1)+0.15*power(cn1,2)+0.7;
  f1cn1:=-45*cos(3*cn1)+0.30*cn1;
  cn11:=cn1-(fcn1)/(f1cn1);
  cncn11:=abs(cn1-cn11);
  writeln('Вiдповiдь Cn: ',cn1:0:5);
  writeln('Вiдповiдь f(Cn): ',fcn1:0:5);
  writeln('Вiдповiдь f"(Cn): ',f1cn1:0:5);
  writeln('Вiдповiдь Cn+1: ',cn11:0:5);
  writeln('Вiдповiдь |Cn1-Cn+1|: ',cncn11:0:5);
  writeln('------------------------------');
  writeln(' ');
  cn1:=cn11;
  until e>cncn11; 
  
  writeln('Уточнення другого корення на вiдрiзку [1; 1.44]');
  writeln(' ');
  repeat 
  fcn2:=-15*sin(3*cn2)+0.15*power(cn2,2)+0.7;
  f1cn2:=-45*cos(3*cn2)+0.30*cn2;
  cn12:=cn2-(fcn2)/(f1cn2);
  cncn12:=abs(cn2-cn12);
  writeln('Вiдповiдь Cn: ',cn2:0:5);
  writeln('Вiдповiдь f(Cn): ',fcn2:0:5);
  writeln('Вiдповiдь f"(Cn): ',f1cn2:0:5);
  writeln('Вiдповiдь Cn+1: ',cn12:0:5);
  writeln('Вiдповiдь |Cn1-Cn+1|: ',cncn12:0:5);
  writeln('------------------------------');
  writeln(' ');
  cn2:=cn12;
  until e>cncn12; 
  
  writeln('Уточнення третього корення на вiдрiзку [2.10; 2.15]');
  writeln(' ');
  repeat 
  fcn3:=-15*sin(3*cn3)+0.15*power(cn3,2)+0.7;
  f1cn3:=-45*cos(3*cn3)+0.30*cn3;
  cn13:=cn3-(fcn3)/(f1cn3);
  cncn13:=abs(cn3-cn13);
  writeln('Вiдповiдь Cn: ',cn3:0:5);
  writeln('Вiдповiдь f(Cn): ',fcn3:0:5);
  writeln('Вiдповiдь f"(Cn): ',f1cn3:0:5);
  writeln('Вiдповiдь Cn+1: ',cn13:0:5);
  writeln('Вiдповiдь |Cn1-Cn+1|: ',cncn13:0:5);
  writeln('------------------------------');
  cn3:=cn13;
  until e>cncn13; 
   
  readln;
end.