filetest.pas

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

{$+}
program test(input,output);
var
	a,b,i: integer;
	
begin   
	a :=10;  	
 	for i:=1 to 30000 do
 	begin
 		a := i; 		
 	end;
        
   
end.