t.pas.bak

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

{$+}
program test(input,output);
const
     c1=100;
     c2=90.3;
type
     type1 = real;     
var
	a: type1;
	b :  boolean;

begin     
	  
	  write(c1);	  
	  write(c2);
	  a:=c1*c2;
	  write('a=');
	  write(a);
	  b := true;
	  write(b);
	  b := false;
	  write(b);
	  
end.