filecase2.pas

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

{$+}
program test(input,output);
var
	a : integer;
	v: boolean;	
begin      
   v:=true; 
   case v of
   	true:
   	begin
   	   a:=4;
   	   write(a);
   	   write(v);{有问题}
   	end;
   	false:
   	begin
   	   a:=2;
   	   write(a);
   	   write(v);
   	end;
   end;
 
   
end.