#!/usr/bin/perl

use strict;

my $int;
my @v;
my $contador;
my $final;

while (<stdin>)
{
$int=$_;
chomp $int;
$v[$contador]=$int;
$contador++;
}

$final=$v[0];

while (<@v>)
{
	if ($_ < $final)
	{
		$final=$_;
	}
}

print $final;