написанные программы / павловская лаба № 3 с отчетом — 2 / 3

program laboratornaya_rabota3;
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 (-4<=x) and (-2>x) then y:=x+3;
if (-2<=x) and (4>x) then y:=-x/2;
if (4<=x) and (6>x) then y:=-2;
if (6<=x) and (10>=x) then y:=sqrt(4-sqr(x-8))-2;
if ((x<-4) or (x>10)) then writeln(' reshenii net') else
writeln('є', x:5:2 ,' є ', y:5:2 , 'є' );
b:=b+1;
x:=x+dx;
if b=23 then begin
readkey;
clrscr;
b:= 0 ;
end;
until m; end;
writeln('ИННННННКННННННј');
readln;
end.