else.pl0

为PL0编译器

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