扩充性测试.pl0

来自「PL0的一个编译器」· PL0 代码 · 共 12 行

var a,b;
begin
	a:=25;
	if a=1 then b:=2 else b:=3;
	write(b);
	for a:=24 downto 2 by -2 do write(a)
end.