Cod sursa(job #137698)

Utilizator bogdan005Aldescu Bogdan bogdan005 Data 17 februarie 2008 12:57:01
Problema Garaj Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 4, Clasa a 10-a Marime 1.13 kb
var cmax,nrm,i,t1,t2,j,nr,cmin,tmin,t3,tmax,t,c,n,m:integer;
    f,g:text;
begin
assign(f,'garaj.in'); reset(f);
assign(g,'garaj.out'); rewrite(g);
read(f,n,m);
read(f,c,t);
nr:=0;
cmin:=c;
cmax:=c;
tmin:=t;
tmax:=t;
t1:=0;
nrm:=0;
t2:=0;
t3:=0;
for i:=2 to n do begin
read(f,c,t);
   if c> cmax then begin cmax:=c;
                         tmax:=t;
                         end;
   if t< tmin then begin tmin:=t;
                   cmin:=c;
                   end;
   end;
   j:=m;
     while m>=cmax do begin
     nr:=1;
     t1:=t1+tmax;
     m:=m-cmax;
     end;
     if m<=cmin then begin
                      nr:=2;
                      t3:=t1+tmin;
                      end
                   else begin nr:=1;
                            t3:=t1+tmax;
                            end;
     while j>0 do begin
      nrm:=1;
     t2:=t2+tmin;
     j:=j-cmin;
     end;
      if t1<t2 then write(g,t1,' ',nrm)
               else if t2<t1 then write(g,t2,' ',nr)
                             else write(g,t3,' ',nr);
                             close(f);
                             close(g);
end.