написанные программы / лаба № 3 — 1 / 3(1)

program lab3;
uses crt;
var x,y,xn,xk,dx,b : real;
m:boolean;
begin
writeln(' Vvedite Xn, Xk, dX');
readln(Xn, Xk, dX);
while (((xn<xk) and (dx<0)) or ((xn>xk) and (dx>0)) or (dx=0)) do
begin
writeln ('error');
writeln(' Vvedite Xn, Xk, dX');
readln(Xn, Xk, dX);
end;
begin
writeln('ЙНННННННЛННННННН»');
writeln('є x є y є');
writeln('МНННННННОННННННН№');
b:=0;
x:=xn;
repeat
if (xn<=xk) then m:=(x>=xk);
if (xn>=xk) then m:=(x<=xk);
if (-9<=x) and (-6>x) then y:=sqrt(9-sqr(x+6));
if (-6<=x) and (-3>x) then y:=x+3;
if (-3<=x) and (0>x) then y:=sqrt(9-sqr(x));
if (0<=x) and (3>x) then y:=3-x;
if (3<=x) and (9>=x) then y:=(-3+x)/2;
if ((x<-9) or (x>9)) then writeln(' reshenii net') else
writeln('є', x:6:2 ,' є ', y:6:2 , 'є' );
b:=b+1;
x:=x+dx;
if b=23 then begin
readkey;
clrscr;
b:= 0 ;
end;
until m; end;
writeln('ИНННННННКНННННННј');
readln;
end.