use strict; use warnings; use utf8; my $input = ; my $answer = 0; chomp ($input); my ($x_min, $x_max, $y_min, $y_max, $m) = split / /, $input; for (my $i = $x_min; $i <= $x_max; $i++) { for (my $j = $y_min; $j <= $y_max; $j++) { my $result = ($i + $j) % $m; if ($answer < $result) { $answer = $result; } } } print $answer;