type
  e=(one,two,three);

var
  a : array[0..cardinal(two)+1] of byte;

begin
end.