piwa

package Piwa is
   type gatunki is (LAGER, HEFEWEIZEN, PORTER_BALTYCKI);
   subtype zawartoscAlkoholu is integer range 3 .. 12;

   type Piwo is record
      gatunek : gatunki;
      moc : zawartoscAlkoholu;
   end record;

end Piwa;