filecase3.pas

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

{$+}
program test(input,output);
var
	c: char;
begin     
   c :='b';
   case c of
   	'a':
   	  write('case(a)');
   	'b':
   	  write('case(b)');   	
   end;
   		
   
end.