whiletest.pas

来自「袖珍型的pascal编译器」· PAS 代码 · 共 16 行

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.