while语句.txt

来自「一个pascal子集编译器。输入pascal原程序」· 文本 代码 · 共 6 行

program mini;
var a;
begin
	while a<10 do a:=a+1;
	a:=100
end.