testpas1.txt

来自「编译原理课设」· 文本 代码 · 共 11 行

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