Pascal Составить графическую схему алгоритма и написать программу для вычисления значения переменной...

Я сейчас на паре. Отправлю ближе к обеду. Срочность не важна. Заранее спасибо)

program laba1;
var
xb: real;
xe: real;
step: real;
x: real;
z: real;
flag: boolean;
begin
xb:= -10;
xe:= 10;
step:= 1;
x:= xb;
while x <= xe do
begin
flag:= true;
z:= 0;
if -3<x<3 then
z:= arccos**2*(0.3*x)
else
if x<=-3 then
z:= 4*x**2-lg*(x**2+1)
else
if x>=3 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.

ошибка в условиях, не может быть в двх условиях знак (=)
program laba1;
var xb,xe,step,x,z: real;
begin
xb:= -10;
xe:= 10;
step:= 1;
x:= xb;
while x <= xe do
begin
z:= 0;
if (-3<x and x<3) then
z:= sqr(arccos(0.3*x))
else
if x<=-3 then
z:= 4*x*x-ln(x*x+1)/ln(10)
else
z:= sqrt(x*x*x - 3) :
writeln('x= ',x:4:1,'; z= ',z:7:4);

x:= x + step;
end;
readln;
end.