Логическое описание линейного списка

pElem=^Elem;

Elem=record

след:pElem;

case R:0..1 of

0: (уров:pElem);

1: (атом:T)

end;

Поле R - поле тега (переключатель).

Примеры:

1. Пустой список ()

2. Атом a

3. (ab)

4. (a()b)

5. ((a+b)*(c-(b/a)))

Вычисление значения арифметического выражения