if a<>0 then if a>0 then begin writeln; writeln(‘a>0’); end else writeln(‘a<0’); else writeln(‘a<0’);