program Programl；
　 var
　　 a，x，y，ok1，ok2:integer;
　 begin
　　 a:=100;
x:=10;
　　 y:=20;
　　 ok1:=5;
　　 ok2:=0；
　　 if ((x>y) or ((y<>20) and (ok1=0)) and (ok2<>0)) then
　　　 a:=1
　　 else if ((ok1<>0) and (ok2=0)) then
　　　　　 a:=-1
　　　　 else
　　　　　 a:=0；
　　 writeln(a)；
　 end．

输出：-1