Cod sursa(job #682097)
| Utilizator |  Ianc Andrei andy95 |
Data | 18 februarie 2012 16:07:44 |
|---|---|---|---|
| Problema | Energii | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
program energie;
var g,w,e,c,i,min:integer;
f,r:text;
begin
assign(f,'energii.in');
reset(f);
assign(r,'energii.out');
rewrite(r);
read(f,g);
read(f,w);
min:=10000;
for i:=1 to g do
begin
read(f,e,c);
if (e>=w)and(c<=min) then min:=c;
end;
if min<>10000 then write(r,min)
else write(r,-1);
close(f);close(r);
end.
