PL/0语言是Pascal语言的一个子集

				PROGRAM EX0;
				
				VAR A,B,C;
				BEGIN
				  A:=88;
				  read(B);
				  C:=A-B;
				  A--;
				 WRITE(A);
				 FOR B:=1 TO 10 DO
				  BEGIN
				  C:=A+1;
				  write(B);
				  WRITE(C);
				  END
				END.