fordownto.pl0

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

PROGRAM FORDOWNTO;
CONST A=88;
VAR B,C;
BEGIN
 FOR B:=50+1 DOWNTO 10*2 DO
  BEGIN
  C:=A-B;
  write(B);
  WRITE(C);
  END
END.