for.pl0

来自「PL/0语言是Pascal语言的一个子集」· PL0 代码 · 共 17 行

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.