while2.txt

来自「PL0语言的编译器」· 文本 代码 · 共 10 行

var a;
	begin
                                 
		while a#0 do
			begin
				
                                                                 write(a);
                                                                 read(a)
			end;
	end.