filecase4.pas

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

{$+}
program test(input,output);
var
	a,b: integer;
begin     
   a := 3;
  b:=a*a;
  write(b);

   case a of
   	1:
           begin
   	   write('one');
           end;
   	2:
           begin
   	   write('two');
           end;

   	3: 
           begin
   	   write('three');
           end;
   end;

   
end.