use strict;
use warnings;

my $str = <>;
my ( $A, $B, $S ) = split /\s/, $str;

print $A + $B , $S;