repeattest.pas

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

program repeattest;

const nr = 10;
var i:integer;
	c:char;
	
begin
i:=0;
repeat
begin
print(i,",");
i:=i+1;
end
until i = 10;
read(c);
end.