Cod sursa(job #367618)

Utilizator bennyDogaru Beniamin benny Data 22 noiembrie 2009 22:03:50
Problema Loto Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.01 kb
program loto;
uses crt;
var i,n,j,m,p,r,o:byte;
    v:array[1..100]of longint;
    h,g:text;
    f:boolean;
    sp,s:longint;
begin
     assign(g,'loto.in');
     reset(g);
     assign(h,'loto.out');
     rewrite(h);
     readln(g,n,sp);
     f:=false;
     for i:=1 to n do
         read(g,v[i]);
    for i:=1 to n do
        for j:=1 to n do
            for m:=1 to n do
                for p:=1 to n do
                    for r:=1 to n do
                        for o:=1 to n do
                            if  v[i]+v[j]+v[m]+v[p]+v[r]+v[o]=sp then
                                begin
                                        writeln(h,v[i],' ',v[j],' ',v[m],' ',v[p],' ',v[r],' ',v[o]);
                                        f:=true;
                                        close(h);
                                        close(g);
                                        exit;
                                end;
    if not f then
       write(h,-1);
    close(g);
    close(h);
end.