Cod sursa(job #682093)

Utilizator andy95Ianc Andrei andy95 Data 18 februarie 2012 16:02:59
Problema Energii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program energie;
var g,w,e,c,i,min:integer;
    f,r:text;
begin
assign(f,'energiii.in');
reset(f);
assign(r,'energii.out');
rewrite(r);
read(f,g);
read(f,w);
min:=10000;
i:=1;
  while i<=g do
    begin
    read(f,e,c);
        if (e>=w)and(c<=min) then min:=c;
    i:=i+1;
    end;
write(r,min);
close(f);close(r);
end.