program ForTeste
{
Declarations

	a := 4, b := 1 , c := 10-> InTeger;
	vector -> array size 3,3,2;
	array1 := [[1,2],[4]] -> Array size 4,2;
	seq1 := <<10,20,30,40>> -> seQUence;


/*	subprogram f(x -> integer) :: integer
	{
	  Declarations
	  Statements
		succ(x);

	  return x;
	}
*/

Statements
	

/*	a = Length(array1);
	vector[0,0,0] = a*2;
	write(a);
	writeLn(vector[0,0,0]);*/

//	a = lENgth(seq1);
//	write(a);

//	for (b inFunction f(c) with)
//	{
//		a = a + b;
//	} 

	write(vector);
	write(array1);
}
