filetype2.pas

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

{$+}
program test(input,output);
type
	type1=integer;
        type2=real;
var

	a : type1;
        b : type2;
begin   

 	a  :=5*50;
        b :=a*10;
        write('a=');
        writeln(a);        
        write('b=');
        writeln(b);     	
   
end.