program Seq
{
Declarations

		a := -1, int1 := -2, int2 := -3 -> Integer;
		b := false, flag := true -> booLEAN;
	 	seq1 :=<<10,20,30,40,50>>, 
                seq3 := <<1,2>>, seq2 -> Sequence;


Statements

		for (a in 1..5)
		{
		  cons(head(seq1) * a,seq2);
		}

		cons(head(seq1),seq2);
		cons(head(seq1)*2,seq2);

		writeLn(seq2);

		while(isMember(10,seq2))
		{
			del(10,seq2);
			writeLn(seq2);
		}


		b = isMember(10,seq2);
		writeLn(b);


}
