pascal

program stage25;
uses wincrt;
const
a = 4;
b = 12;
c = 99;
d = 2099;
var
e, f, g, i : integer;
h : real;
begin
e := sqr(a);
i := 3 * a + e;
f := d - c;
h := f / 12;
g := trunc(h);
writeln('the answer is ' ,a+b+c+d+e+f+g+i);
end.

我想知個answer，但唔識睇pascal，搵人幫下我