为什么14届阅读程序第一题我在电脑上算出和答案不一样的数字

var
i,a,b,c,d:integer;
f:array[0..3] of integer;
begin
for i:=0 to 3 do
read (f[i]);
a:=f[0]+f[1]+f[2]+f[3];
a:=a div f[0];
b:=f[0]+f[2]+f[3];
c:=(b*f[1]+a) div f[2];
d:=f[(b div c) mod 4];
if (f[(a+b+c+d) mod 4]>f[2])
then begin
a:=a+b;
writeln(a);
end
else
begin
c:=c+d;
writeln(c);
end;
end.
答案是23
算出来是69