program Seq
{
Declarations

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


Statements

		copy(seq1,seq2);
		writeLn(seq2);
}
