for2.pl0

来自「为PL0编译器」· PL0 代码 · 共 12 行

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