program t1;
var a,b,c,d,e:integer;
begin
a:=1;
b:=a+2;
c:=b+3;
d:=c+4;
a:=d+5;
for e:=1 to 4 do
begin
if a mod 2=0
then a:=a div 2+d
else a:=a div 2+d+1;
b:=a+2;
c:=b+3;
d:=c+4;
a:=d+5;
end;
writeln(a);
end.
输出：152