type
  felsorolas_tipus = 1..50;
  tomb_tipus = array [felsorolas_tipus] of integer;