//開始一個程序
program myTest;

/**
*
*聲明（函數，過程定義，說明）段：
*/
integer : i;
const integer i = 1 ;
integer : a[10,10];
integer : b[10];
integer test(integer i)
	integer : i;
	integer : j;
	integer : b[10];
		begin
			i++;
			return i;
			j++;
			return j;
		end

procedure proce
	integer : i;
		begin
			i++;
		end

/**
*
*主要程序段
*/
begin
	i++;
	i:=i/10;
	j :=10;
//for語句
	for i:=1 to 10 do
		begin
			i++;
			j:=j+1;
			j:=j+2;
		end
				;
	a [ j + 2 ] := 1;
		
//if語句
	if i==10 and j ==10
	then
		j:=10; 
	else 
		j:=15;
		
//repeat語句
	repeat 
		j:=1+j*10; 
	until
		i==17;

//while語句	
	while i==10 do
		i++;

//過程調用
	call proce;

//函數調用
	test(2);
	
	
end