интерпретатор, Интепретатор паскаля Опции

[gamordzhoba]

Дана задача, требуется интерпретатор.
Задана программа на языке Паскаль 0.00000001 (кодовое название 1E-8). Требуется вывести то, что вывела бы эта программа в процессе своего исполнения. Программа описывается следующими правилами.

[имя переменной]::=как в паскале, длина идентификатора не превосходит 8 символов
[выражение]::=корректное арифметическое выражение, содержащее переменные, знаки +,-,*,div,mod, скобки
[простое условие]::=[выражение]=[выражение]|[выражение]
<[выражение]|[выражение]>[выражение]
[условие]::=состоит из простых условий и операторов and, or, not
[оператор присваивания]::=[имя переменной]:=[выражение]
[оператор]::=пустой оператор|[оператор ветвления]|[оператор цикла]|[оператор вывода]|[оператор присваивания]|begin [последовательность операторов] end
[последовательность операторов]:=[оператор]|[оператор];[последова
тельность операторов]
[оператор ветвления]::=if [условие] then begin [последовательность операторов] end
[оператор цикла]::=for [имя переменной]:=[выражение] to [выражение] do begin [последовательность операторов] end
[оператор вывода]::=writeln([выражение])

Сама программа имеет вид
var
....
begin
[последовательность операторов]
end.
Гарантируется, что все переменные типа longint, программа компилируется на Delphi и Borland Pascal, не выводит более 10KB текста, работает на Borland Pascal мгновенно. Заканчивается без runtime error.
Приоритеты всех операций, правила работы операторов совпадают с аналогами в Borland Pascal.


Входные данные
Во входном файле записана программа.

Выходные данные
Выведите то, что должна вывести программа.

Пример

Ввод

var
n, i, sum: longint;
begin
n := 100;
sum := 0;
for i := 1 to n do begin
if i mod 2 = 1 then begin
sum := sum + i;
end;
end;
writeln(sum);
end.


Вывод

2500