Pagini recente » Cod sursa (job #1736670) | Cod sursa (job #714682) | Cod sursa (job #844569) | Borderou de evaluare (job #1237921) | Cod sursa (job #690508)
Cod sursa(job #690508)
program energie;
var g,w,e,c,i,cmin:integer;
f,r:text;
begin
assign(f,'energiii.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,c);
if (e>=w)and(c<=cmin) then cmin:=c;
end;
if cmin<>10000 then write(r,cmin)
else write(r,-1);
close(f);close(r);
end.