[Dj_Alex]

var a:array[1..100] of integer;