Cod sursa(job #690520)
Utilizator | Data | 25 februarie 2012 18:14:40 | |
---|---|---|---|
Problema | Energii | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
program energie;
var w,i,j,g,cmin:integer;
e,c:array[1..5000] of integer;
f,r:text;
begin
assign(f,'energii.in');
reset(f);
assign(r,'energii.out');
rewrite(r);
read(f,g);
read(f,w);
cmin:=10000;
for i:=1 to g do
begin
read(f,e[i],c[i]);
if (e[i]>=w)and(c[i]<=cmin) then cmin:=c[i];
end;
if cmin<>10000 then write(r,cmin)
else write(r,-1);
close(f);close(r);
end.