Написать программу для вычисления значения переменной Z для значения аргумента Х, изменяющегося от Х нач. до Хкон

program Project1;
var
  xb: real; // Переменная для хранения начального значения вычислений.
  xe: real; // Переменная для хранения значения конечного значения вычислений.
  step: real; //  Переменная для хранения значения шага вычислений.
  x: real; //  Переменная для хранения значения аргумента функции.
  z: real; //   Переменная хранения значения вычисления функции.
  flag: boolean; // Логическая переменная для корректного вывода результатов вычислений.
begin
  xb:= -3; //  Начальное значение вычислений.
  xe:= 4;  //  Конечное значение вычислений.
  step:= 0.3; // Шаг вычислений.
  x:= xb;
  while x <= xe do
   begin
     flag:= true;
     z:= 0;
     if x <= 0 then
       z:= 2*cos(x)*cos(x) + 5
      else
       if x > 2 then
         z:= ln(sqrt(abs(x*x - 4)))
       else
         if sin(x) > 1e-19 then
           z:= x + cos(x)/sin(x)
         else
           flag:= false;
     if flag then
       writeln('x= ',x:4:1,'; z= ',z:7:4)
     else
       writeln('x = ',x:4:1,'; value not defined');
     x:= x + step;
   end;
  readln;
end.