t2.pas

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

{$+}
program test(input,output);
type
     type1 =array [0..10] of integer;
var
	a,b,i: integer;
	arr : type1;
	
begin   
	a :=10;  
	b :=10;
 	for i:=1 to 10000 do
 	begin
 		a := a-1;
 		arr[i] :=a;
 		write('arr[');
 		write(i);
 		write(']');
 		writeln(arr[i]);
 	end;
 	
        a  :=2*50;
        write('a=');
        writeln(a);        
 	write('b=');
 	write(b);
 	
 	write('a='); 	
 	
 	write(a);
 	
   
end.