filerepeat.pas

来自「本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本」· PAS 代码 · 共 13 行

{$+}
program test(input,output);
var
	a,b: integer;
begin   
	a:=10;  
 	repeat 		
 	   write(a);
 	   a:=a-1;
 	until a<0; 
 	
   
end.