filewritebool.pas

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

{$+}
program test(input,output);
var
	a: boolean;
begin     
	  a:= true;
   	  write('(1)a=');
   	  write(a);
   	  
   	  a:=false;
   	  write('(2)a=');
   	  write(a);
   			  
	  a:= true;
   	  write('(3)a=');
   	  write(a);
   	     	  

   
end.