filetype3.pas

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

{$+}
program test(input,output);
type
      type1 = integer;
      type2 = real;
const
	c1 =100;
	c2 =15.903;
	c3 =1000;
var
	a: integer;
	r: real;
	t1: type1;
	t2: type2;
	
begin   
	a :=10;  
	r := c1*c2;
 	write('r=c1*c2');
 	write(r);	
 	
	r := c3*c2;
 	write('r=c3*c2');
 	write(r);
 		
	r := a*c2;
 	write('r=a*c2');
 	write(r);	
 	
 	t1:= a;
 	t2:=r;
        write('t1=a=');
        writeln(t1);        
 	write('t2=r=');
 	write(t2);

 	
   
end.