Дп
Дпомпвл
Перевод фрагмента программы с Pascal на С
const n_max=$fcOO; {Максимальная память для дерева}
type Vector=array[1..n_max] of Char;
var f :Text; {Текстовый файл}
z :Vector; {Двоичное дерево движения
по треугольнику}