1.txt

来自「PL0编译器,有5个附加功能。编译原理实验用。」· 文本 代码 · 共 10 行

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