program ideone;

var
curr, mx1, mx2, mx3: integer;

begin
    mx1 := 0;
    mx2 := 0;
    mx3 := 0;
    read(curr);

    while curr <> 0 do
    begin
        if curr > mx1 then
        begin
            mx3 := mx2;
            mx2 := mx1;
            mx1 := curr;
        end
        else if curr > mx2 then
        begin
            mx3 := mx2;
            mx2 := curr;
        end
        else if curr > mx3 then
            mx3 := curr;

        read(curr);
    end;

    writeln(mx1, ' ', mx2, ' ', mx3);
end.