Pagini recente » Cod sursa (job #2959209) | Cod sursa (job #1492399) | Cod sursa (job #380406) | Cod sursa (job #2330900) | Cod sursa (job #1233272)
program loto;
var f : text;
n,i,j,a,b,c,d,e,g : byte;
s,suma,p : longint;
v : array[0..101] of longint;
begin
assign(f,'loto.in'); reset(f);
readln(f,n,s);
for i := 1 to n do
read(f,v[i]);
close(f);
assign(f,'loto.out'); rewrite(f);
for a := 1 to n do
for b := 1 to n do
for c := 1 to n do
for d := 1 to n do
for e := 1 to n do
for g := 1 to n do
if v[a]+v[b]+v[c]+v[d]+v[e]+v[g] = s then begin
write(f,v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[g]);
close(f);
exit;
end;
end.