testpas1.txt

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

var x,y,z;
begin
     x:=10;
     y:=-5;
     read(z);
     if z>3 then
	write(x);
    else
	write(y);
    read(z);
end.