filefun1.pas

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

{$+}
program test(input,output);
var
	a,b,i: integer;
	function mymul(a,b: integer): integer;
	begin
	  mymul :=a*b;
	end;
begin   
	a:=10;  
	b :=10;
 	for i:=1 to 10 do
 	begin
 		a := a-1;
 		write(a);
 	end;

        write('a=');
        writeln(a);        
 	write('b=');
 	write(b);

 	b:=mymul(a,b); 	
 	write('b=a*b=');
 	write(b);
   
end.