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

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 (-10<=x) and (-8>x) then y:=-3;
if (-8<=x) and (-3>x) then y:=(3*x+9)/5;
if (-3<=x) and (3>x) then y:=-sqrt(9-sqr(x));
if (3<=x) and (5>x) then y:=x-3;
if (5<=x) and (8>=x) then y:=3;
if ((x<-10) or (x>8)) 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.