program test_2015_l;
var x, a, b, c, d, z: integer:
begin
readln(x);
a:=x mod 10;
b:=(x mod 100) div 10;
c:=(x mod 1000) div 100;
d:=x div 1000;
z:=a*a+b*b+c*c+d*d
if trunc(c*d)/(a*b)) = (c*d)/(a*b) then inc(z,a*b) else inc(z,c*d);
writeln(z);
end.
输入: 2015
输出：35