Cod sursa(job #137413)

Utilizator ghitza_2000Stefan Gheorghe ghitza_2000 Data 17 februarie 2008 12:00:26
Problema Garaj Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 4, Clasa a 10-a Marime 0.71 kb
var i,n,m,c1,t1,t3,t4,min1,min2,t,t2,ct,min3,min4,s:longint;
    f,g:text;
begin
assign(f,'garaj.in'); reset(f);
assign(g,'garaj.out'); rewrite(g);
readln(f,n,m); min1:=9999; min2:=9999;  min3:=9999; min4:=9999;  s:=0;
for i:=1 to n do begin
readln(f,c1,t1);
if min1>t1 then begin min2:=min1;  min4:=min2;
                      min1:=c1;    min3:=t1;
                end;
end;
s:=min1+min2;    t3:=min3; t4:=min4;
while s<m do
if t3>t4 then begin s:=s+min2;
                    t4:=t4+2*min4;
               end
          else begin s:=s+min1;
                    t3:=t3+2*min3;
               end;
if t4>t3 then write(g,t4,' ')
                else write(g,t3,' ');
write(g,'2');
close(f); close(g);
end.