这2003初赛阅读程序的答案……

还有阅读程序第三题，正确姿势是什么……

没JB你说个图

1. program Program1;
var a,b,c,d,sum : longint;
begin
read(a,b,c,d);
a := a mod 23; b := b mod 28; c := c mod 33;
sum := a * 5544 + b * 14421 + c * 1228 - d;
sum := sum + 21252; sum := sum mod 21252;
if (sum = 0 ) then sum := 21252;
writeln(sum);
end. 输入：283 102 23 320 输出____________