Cod sursa(job #136815)

Utilizator paulsapPaul Sapunaru paulsap Data 16 februarie 2008 01:22:23
Problema Loto Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.69 kb
var f,g:text;
    ok:boolean;
    s:longint;
    a:array[1..100] of integer;
    n,i,j,k,l,m,q,r:integer;
begin
assign(f,'loto.in');reset(f);
assign(g,'loto.out');rewrite(g);
read(f,n,s);
for i:=1 to n do read(f,a[i]);
r:=0;
for i:=1 to n do begin
    for j:=1 to n do
        for k:=1 to n do
            for l:=1 to n do
                for m:=1 to n do
                    for q:=1 to n do
                        if (a[i]+a[j]+a[k]+a[l]+a[m]+a[q]=s) and (r=0) then begin
                           write(g,a[i],' ',a[j],' ',a[k],' ',a[l], ' ',a[m],' ',a[q]);
                           r:=1;
                           end;

end;
if r=0 then write(g,'-1');
close(f);close(g);
end.