Модифицировать программу используя оператор цикла REPEAT . UNTIL

var x,y,a,xn,xk,dx:real;
BEGIN
write('A = '); readln(a);
write('Xn = '); readln(xn);
write('Xk = '); readln(xk);
dx:=a/5;
x:=xn;
while x<=xk do
  begin
    if (x<0.1) or (x>=1.6) then writeln('for X = ',x:4:2,'  Y = undefine') else
    begin
    if (x>=0.1) and (x<=0.4) then y:=1/x;
    if (x>=0.4) and (x<=1.2) then y:=ln(x*x+a*x);
    if (x>1.2) and (x<1.6) then y:=x*x;
    writeln('for X = ',x:4:2,'  Y = ',y:6:3);
    end;
    x:=x+dx
  end {while}
END.

var x,y,a,xn,xk,dx:real;
BEGIN
write('A = '); readln(a);
write('Xn = '); readln(xn);
write('Xk = '); readln(xk);
dx:=a/5;
x:=xn;
Repeat
    if (x<0.1) or (x>=1.6) then writeln('for X = ',x:4:2,'  Y = undefine') else
    begin
    if (x>=0.1) and (x<=0.4) then y:=1/x;
    if (x>=0.4) and (x<=1.2) then y:=ln(x*x+a*x);
    if (x>1.2) and (x<1.6) then y:=x*x;
    writeln('for X = ',x:4:2,'  Y = ',y:6:3);
    end;
    x:=x+dx
Until x>xk;
END.