Пример. Описание интервального типа

Type
 Index = 0..63;
 Letter = ’A’..’Z’;

Const
Nmax=100;
Var
 Curs : 1..5;
 Bukva : ’a’..’z’;
 Mas : Array[1..Nmax] Of Real;

Пример. Описание перечисляемого типа

Type
 Week_Days=(Sunday,Monday,Tuesday,Wednesday,Thursday,
 Friday, Saturday);
 Side=(North, East, South, West);

Var
 Days,Week_End : Week_Days;
 Curs: Side;

---