Cod sursa(job #87029)
| Utilizator |  FMI - Dan Moldovan MDan |
Data | 26 septembrie 2007 11:32:02 |
|---|---|---|---|
| Problema | Loto | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
Var a,b:array [1..100] of longint;
f,g:text;
i,n,suma:longint;
Begin
Assign (f,'loto.in');
assign (g,'loto.out');
reset (f);
rewrite (G);
readln (f,n,suma);
for i:=1 to n do
readln (f,b[i]);
if (a[n]*6)<suma
then
writeln (g,'-1')
else
begin
end;
close(f);
close(g);
end.