lex1.pl0

编译实验的源程序代码 比较简单

  0 PROGRAM EOX1;VAR A,B,C;   BEGIN   
  2 	A:=20; 
  4   	B:=30;  
  6  	READ(C);  
  8   	WRITE(C);   
 11   	IF C<50 THEN  WRITE(A)       
 17   	ELSE WRITE(B);  
 22   END.