#!/usr/bin/env perl use strict; use warnings; my $n = <>; my $str = <>; chomp $str; my @array = split / /, $str; my $ans = 0; @array = sort {$a <=> $b} @array; for(my $i = 0; $i < $n; $i++) { $ans += $array[$i]; } $ans /= 2; if($ans != int $ans) { print "impossible\n"; exit; } my @f; my @s; for(my $i = 0; $i < 100**2; $i++) { $f[$i] = 0; $s[$i] = 0; } for(my $i = 0; $i < $n; $i++) { $f[$array[$i]] = 1; } for(my $i = 0; $i < $n; $i++) { for(my $j = 0; $j < 100**2; $j++) { if(($array[$i] + $j < 100**2)and($f[$j] == 1)) { $s[$j + $i] = 1; } } for(my $k = 0; $k < 100**2; $k++) { if(($f[$k] == 1)or($s[$k] == 1)) { $f[$k] = 1; } } } #for(my $i = 0; $i < 10; $i++) { # print "$s[$i]" ; #} #print "\n"; if($s[$ans] == 1) { print "possible\n"; } else { print "impossible\n"; } exit;