fileconst_type_var.pas.bak

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

{$+}
program test(input,output);

type
     type1 = real;     
var
	a: type1;
const
     c1=100;
     c2=90.3;	
begin     
	  
	  write(c1);	  
	  write(c2);
	  a:=c1*c2;
	  write('a=');
	  write(a);
end.