for.pl0

为PL0编译器

PROGRAM EX01;
VAR A,B;
BEGIN
  FOR   A:=1
  TO  10
DO B:=B+1;
  WRITE(B);
  FOR  A:=10
  DOWNTO   1
  DO B:=B-1;
  WRITE(B)
END.