Pascalの宿題は俺にやらせろ！！Part1

ネタ投下ｗ

program evalExpr(input, output);

const
OP_NIL = chr(0);
OP_SPC = ' ';
OP_TAB = chr(9);
OP_ADD = '+';
OP_SUB = '-';
OP_MULT = '*';
OP_DIV = '/';

type
tree = ^treeCell;
treeCell = record
op : char;
data : integer;
left, right : tree;
end;

function calc(root : tree) : integer;

var
lhs, rhs : integer;