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

是不是打错了什么……

LZ的程序少了这一句
b := b div a;
在对c赋值之前, 对比官网题目可以发现.

5楼正解