Cod sursa(job #122673)
Utilizator | Data | 13 ianuarie 2008 13:44:05 | |
---|---|---|---|
Problema | Loto | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.29 kb |
program loto;
{$APPTYPE CONSOLE}
uses
SysUtils;
var fin,fout:text;
S,a,b,c,d,e,f,g,i,j,n,m:Longint;
v:array [1..100] of longint;
{*--------------MAIN--------*}
begin
assign(fin,'loto.in'); reset(fin);
assign(fout,'loto.out'); rewrite(fout);
readln(fin,n,s);
for i:=1 to n do read(fin,v[i]);
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 f:=1 to n do
// for g:=1 to n do
if V[a]+v[b]+v[c]+v[d]+v[e]+v[f] = S then
Begin
Write(fout,v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[f]);
Close(fout);
Exit;
End;
close(fin);
Writeln(fout,-1);
close(fout);
end.