# if Length(InputData)

if Length(InputData) = 0 then exit; for i:=1 to Length (InputData) do begin TempElem := Head; New (Head); Head^.Data := InputData[i]; Head^.Next := TempElem; end; end; Заметьте, что при таком размещении &quot;бывшая&quot; строка будет доступна с конца. Механизм 2 - вектор фиксированной длины. Этот вариант удобен для эмуляции работы со стеком. {-------------------------------------------------} { Стек - вектор фиксированной длины } {-------------------------------------------------} const N = &lt;максимальный размер стека&gt;; type Vector = array [1..N] of &lt;item&gt;; var Stack : Vector; Top : 0..N; {обратите внимание на диапазон, выделенный для } { индекса-указателя: при Top=0 стек пуст } {-------------------------------------------------} А остальное проделайте самостоятельно, выполнив Упражнение #1. Напишите процедуру Push и функции Pop и StackTop для стека как вектора фиксированной длины, используя указанное описание, а также функцию

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа