#!/usr/bin/env perl

use strict;
use utf8;
use warnings;


if ($0 eq __FILE__) {
  my @arr;
  my $i = 0;
  my @abc = ('A'...'C');
  while (defined(my $line = <STDIN>)) {
    chomp($line);
    push @arr, [$line, $abc[$i]];
    $i++;
  }
  @arr = sort {$b->[0] <=> $a->[0]} @arr;
  printf("$arr[0][1]\n$arr[1][1]\n$arr[2][1]\n");
}