whiletest.pas

袖珍pascal编译器,适用语言VC & C++ Visual Basic

program whiletest;

const MAX = 10;

var c:char;
	i:integer;

begin
i:= 0;
while i < MAX do
	begin
	print(i,",");
	i:=i+1;
	end;
read(c);
end.