all.pl0

1）增加单词：保留字 ELSE

PROGRAM EX01;
VAR A,B,C,D;
 BEGIN
    
 READ(A);
 B:=A;
 D:=A;
 C:=A;
 
 A++;
 WRITE(A);
 A--; 
 WRITE(A);
 A-=B+100;
  WRITE(A);
 A+=B;
 WRITE(A);
 WRITE(B);
  IF A<0
   THEN
   B--
   ELSE
   B:=1;
   WRITE(A);
   WRITE(B);
	
  FOR   A:=1
    TO  10
   DO B:=B+1;
  WRITE(B);
  FOR  A:=10
  DOWNTO   1
  DO B:=B-1;
  WRITE(B);
         A++;
       ++B;
  REPEAT 
  A:=A+1;
  B:=B-1;
  DOWHILE  A<10;
  WRITE(A);
  WRITE(B)
END.





END.