program Program3；
　 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
输出：8910