Туре <имя типа> = .. ; Var <идентификатор> : <имя типа>;
Type Dni = 1..31; Var Raddni, Dodndni : Dni;