//開始一個程序
program myTest;
/**
*
*聲明（函數，過程定義，說明）段：
*/
//數組聲明，否則不可用
integer : aa[4,4,4];

//變量聲明，否則不可用
integer : i,k,w,q,a,b;

/**
*
*主要程序段
*/
begin

	/**
	* 初始化語句
	*/
	i:=1;k:=1;w:=1;q:=1;a:=1;b:=1;
	
	/**
	*case 語句
	*/
	case 1+2 :
	3 : i:=i+1*k;
	4 :  k:=k+1;
	default : w:=w+2;
	end
	
	/**
	*普通賦值 + 優先級展示
	*/
	q:=q+1*w;
	
	/**
	*函數調用
	*/
	test(i,q+3);
	
	//read a,b;
	
	/**
	* if-then 語句 + 數組操作 + 布爾表達式
	*/
	if a > b and i > k then
	aa[1,2,3]:=b+1;
	else
	i:=i+1;
	
	i:=aa[1,1,1];
	
	/**
	* while 語句  + if-then-else
	*/
	while a == b  do

	  if a > b then
	  	a:=a+1;
	  else
	  	b:=b+1;
	  	
	  

		
		
		/**
		*for 語句
		*/
	  	for i:=k+1 to w+1 do
	  		
	  		k:=k+1;
	  		q:=q+1;
	  		

	
	
end