repeat2.pl0

为PL0编译器

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