array.pl0

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

PROGRAM ARR;
VAR A,B,C;
ARRAY D[1:10];
BEGIN
  A:=88;  
  C:=33;
  D[9]:=C;
  C:=D[9];
WRITE(C);
WRITE(D[9]);
END.