Ни как, только можешь в конце сделать case для Boolean переменной (что по сути только ухудшит код)
case (S<0) and (S<=A) and (A<=0) and (S<=B) and (B<=0)and (S<=C) and (C<=0) or
(S>0) and (S>=A) and (A>=0) and (S>=B) and (B>=0) and (S>=C) and (C>=0) of
True: writeln('Да');
False: writeln('Нет');
end;
