Code:TLMD

 TLMD = record
   Lata, Mies, Dni : SmallInt;
 end;