Составить блок-схему(Pascal)

[Лотта]

задача.jpg



var
x, ch, zn, s: real;
begin
write('x = ');
readln(x);
if (sin(x)/cos(x)<=0) or (x<0) or (exp(-3*x) + arctan(x) = 0) then
writeln('Решение не определено')
else begin
ch := sqrt(abs(sqr(ln(sin(x)/cos(x)))) + sqr(1/2/x) + 1);
zn := exp(-3*x) + arctan(x);
s := ch/zn;
writeln('s = ',s);
end;
readln;
end.

[Utkin]

Мне просто интересно, что если в условии 2 or без обрамления в скобки то работать будет?