Cod sursa(job #566770)

Utilizator calceacalcea george calcea Data 29 martie 2011 11:56:52
Problema Loto Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.64 kb
program probl;
var
y,x:text;
a,b,c,d,e,f: array[1..20] of integer;
n,s,g,h,i,j,l,m:integer;
ok:boolean;
begin
assign(y,'loto.in');
reset(y);
assign(x,'loto.out');
rewrite(x);
readln(y,n,s);

for i:=1 to n do begin
read(y,a[i]);
b[i]:=a[i];
c[i]:=a[i];
d[i]:=a[i];
e[i]:=a[i];
f[i]:=a[i];
end;


    ok:=true;
for g:= 1 to n do
for h:= 1 to n do
for i:= 1 to n do
for j:= 1 to n do
for l:= 1 to n do
for m:= 1 to n do begin
if ok then
if a[g]+b[h]+c[i]+d[j]+e[l]+f[m]=s then begin
write(x,a[g],' ',b[h],' ',c[i],' ',d[j],' ',e[l],' ',f[m]);
ok:= false;
end;
end;
if ok then write(X,'-1');
close(y);
close(x);
readln;
end.