#!/uer/bin/perl use strict; use warnings; my $l = <>; my $m = <>; my $n = <>; if($n >= 25) { my $ans = $n / 25; $ans = int $ans; $m += $ans; $n -= $ans * 25; } if($m >= 4) { my $ans = $m / 4; $ans = int $ans; $l += $ans; $m -= $ans * 4; } if($l >= 10) { my $ans = $l / 10; $ans = int $ans; $l -= $ans * 10; } print $l + $m + $n; print "\n"; exit;