repeattest.pas

袖珍型的pascal编译器

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.