// класс описывающий узел дерева
type
Node = class
public
key: integer ; // ключ, по которому производится поиск
data: double; // данные в узле дерева
left, right, parent: Node; // 3 указателя - на левого и правого ребенка узла
// а также указатель на родителя узла
end ;
// класс двоичное дерево
type
BinaryTreeClass = class
public
root, currentElement : Node; // 2 указателя - на корень дерева и на текущий элемент
size : integer ; // размер дерева - суммарное кол-во всех узлов
end ;
program ideone;
begin
(* your code goes here *)
end .
Ly8g0LrQu9Cw0YHRgSDQvtC/0LjRgdGL0LLQsNGO0YnQuNC5INGD0LfQtdC7INC00LXRgNC10LLQsAp0eXBlCk5vZGUgPSBjbGFzcwpwdWJsaWMKICBrZXk6aW50ZWdlcjsgLy8g0LrQu9GO0YcsINC/0L4g0LrQvtGC0L7RgNC+0LzRgyDQv9GA0L7QuNC30LLQvtC00LjRgtGB0Y8g0L/QvtC40YHQugogIGRhdGE6ZG91YmxlOyAvLyDQtNCw0L3QvdGL0LUg0LIg0YPQt9C70LUg0LTQtdGA0LXQstCwCiAgbGVmdCxyaWdodCxwYXJlbnQ6IE5vZGU7IC8vIDMg0YPQutCw0LfQsNGC0LXQu9GPIC0g0L3QsCDQu9C10LLQvtCz0L4g0Lgg0L/RgNCw0LLQvtCz0L4g0YDQtdCx0LXQvdC60LAg0YPQt9C70LAKICAvLyDQsCDRgtCw0LrQttC1INGD0LrQsNC30LDRgtC10LvRjCDQvdCwINGA0L7QtNC40YLQtdC70Y8g0YPQt9C70LAKZW5kOwoKLy8g0LrQu9Cw0YHRgSDQtNCy0L7QuNGH0L3QvtC1INC00LXRgNC10LLQvgp0eXBlCkJpbmFyeVRyZWVDbGFzcyA9IGNsYXNzCnB1YmxpYwogIHJvb3QsIGN1cnJlbnRFbGVtZW50IDogTm9kZTsgLy8gMiDRg9C60LDQt9Cw0YLQtdC70Y8gLSDQvdCwINC60L7RgNC10L3RjCDQtNC10YDQtdCy0LAg0Lgg0L3QsCDRgtC10LrRg9GJ0LjQuSDRjdC70LXQvNC10L3RggogIHNpemUgOiBpbnRlZ2VyOyAvLyDRgNCw0LfQvNC10YAg0LTQtdGA0LXQstCwIC0g0YHRg9C80LzQsNGA0L3QvtC1INC60L7Quy3QstC+INCy0YHQtdGFINGD0LfQu9C+0LIKZW5kOwoKcHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=
compilation info
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(3,8) Error: Identifier not found "class"
prog.pas(4,1) Error: Error in type definition
prog.pas(4,1) Fatal: Syntax error, ";" expected but "identifier PUBLIC" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout