testpas2.txt

来自「pl0 文法 编译器 （1）扩充一维整型数组。 扩充var数组：VAR 」· 文本 代码 · 共 18 行

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.