filerepeat.pas

本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本人增加了类进行封装

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