1

var a, b, c, max: integer;

begin
readln(a, b, c);
if ((a <> b) and (a <> c)) then
begin
if (a >= b) then
max := a
else
max := b;
if (c > max) then
max:=c;
a:=max; b:=max; c:=max;
writeln(a,' ',b,' ',c);
end
else
writeln(sqr(a)+sqr(b)+sqr(c));
readln;

end.