else.pl0

这个是我的编译原理的课程设计

PROGRAM T4;
VAR A,B;
BEGIN
   B:=3;
   A:=0; 
   IF B<>3 THEN WRITE(B)
   ELSE
    WRITE(A);
END.