1.program Programl; 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.
输出:
2.program Program2; var a,t:string; i,j:integer; begin a:=`morning`; j:= l;