repeat.pl0

来自「1）增加单词：保留字 ELSE」· PL0 代码 · 共 18 行

PROGRAM EX01;
VAR A,B;
BEGIN
  A:=1;
  B:=10;
  REPEAT 
  A:=A+1;
  B:=B-1;
  DOWHILE  A<10;
  WRITE(A);
  WRITE(B);
 REPEAT
A:=A-1;
B:=B+1;
UNTIL  A<0;
  WRITE(A);
  WRITE(B)
END.