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 * 1288 - d; sum := sum + 21252; sum := sum mod 21252; if sum = 0 then sum := 21252; writeln(sum); end.输入:283 102 23 320
输出:1