program Program1；

　 var

　　 a，x，y，okl，ok2：integer；

　 begin

　　 a ：=100：

　　 x：=l0；

　　 y：=20；

　　 okl：=5：

　　 ok2：=0；

　　 if ((x>y) or ((y<>20) and (okl=0)) and (ok2<>0)) then

　　　 a：=1

　　 else if ((okl<>0) and (ok2=、0)) then

　　　　　 a：=-1

　　　　 else

　　　　　 a：=0；

　　 writeln(a)；

　 end． 

输出：