testpas2.txt

pl0 文法 编译器 （1）扩充一维整型数组。 扩充var数组：VAR <数组标识名>（<下界>：<上界>）〈下界〉和〈上界〉可用常量标识名。 （2）扩充

var x,y,z;
begin
     x:=10;
     y:=-5;
     read(z);
     repeat 
          if z >5 then 
begin
	z:=z+8;
        z:=z+z;
end;
          else
          z:=z+4;
     until 
          z>10; 
    write(z);
    read(z);
end.