while2.txt

PL0语言的编译器

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