#!/usr/bin/perl

use strict;
use warnings;

my $n = <STDIN>;
chomp $n;

my @a;
{
    for (my $i=0; $i<$n; $i++)
    {
        $a[$i] = <STDIN>;
        chomp $a[$i];
    }
}
my (@l, @r);
$l[0] = $a[0];
for (my $i=1; $i<$n; $i++)
{
    $l[$i] = $a[$i-1]>$l[$i-1] ? $a[$i-1] : $l[$i-1];
}
$r[$n-1] = 0;
for (my $i=$n-2; $i>=0; $i--)
{
    $r[$i] = $a[$i+1]>$r[$i+1] ? $a[$i+1] : $r[$i+1];
}
for (my $i=0; $i<$n; $i++)
{
    my $c = $l[$i]>$r[$i] ? $l[$i] : $r[$i];
    print "$c\n";
}