Cod sursa(job #171410)
Utilizator | Data | 4 aprilie 2008 12:08:45 | |
---|---|---|---|
Problema | Loto | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.73 kb |
var
g:text;
v:array[1..6]of integer;
n,s,st,a,b,c,d,e,f,i:integer;
begin
assign(g,'loto.in');reset(g);
read(g,n,s);
for i:=1 to n do
read(g,v[i]);
close(g);assign(g,'loto.out');rewrite(g);
if s>6*v[n] then
begin write(g,-1);close(g); exit; end
else
for a:=1 to n do
for b:=a to n do
for c:=b to n do
for d:=c to n do
for e:=d to n do
for f:=e to n do
begin
st:=v[a]+v[b]+v[c]+v[d]+v[e]+v[f];
if st=s then
begin
write(g,v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[f]);
close(g);
exit;
end
else if st>s then
begin
write(g,-1);
close(g);
exit
end;
end
end.