else3.pl0

为PL0编译器

PROGRAM EX01;
VAR A,B,C;
BEGIN
   READ(A);
   READ(B);
  IF A<=0
  THEN 
   IF B>=0
     THEN
       C:=1
   ELSE C:=0
  ELSE
   IF B>=0
     THEN
       C:=0
   ELSE C:=1;
  WRITE(A);
  WRITE(B);
  WRITE(C)
END.