filedonereal.pas

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

{$+}
program test(input,output);
var
	r: real;
	a: integer;
begin     
	  r:=1e20 ; 	   
	  write(r);
	  r:=r*10.0;
	  write(r);
end.