51.txt

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

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