Cod sursa(job #171410)

Utilizator mariusake212Isac Marius-Sergiu mariusake212 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.