#!/perl/ -w


@nums=(); #array of numbers
$count=0; #count of numbers

while(<>){

chomp($input=$_);

if($input ne ''){

$nums[$count++]=$input;
}

else{last;}
}

@nums= sort {$a<=>$b} @nums;


print "\nminimum number: $nums[0]";

print "\nmaximum number: $nums[$#count]";