记录编号	2086	评测结果	AAAAAAAAAA
题目名称	驾车旅行	最终得分	100
用户昵称	maxiem	是否通过	通过
代码语言	Pascal	运行时间	0.027 s
提交时间	2008-09-12 14:33:44	内存使用	0.11 MiB

program tour;
var
  tmp,s,m,max,drive:real;
  dis,price:array [0..51] of real;
  i,num:byte;
procedure run(st:byte;p,f:real);
var i,j:byte;
begin
  if st=num+1 then begin
    if p<m then m:=p
  end
  else begin
    if dis[st+1]-dis[st]>f*drive then run(st,p+(max-f)*price[st]+20,max) else begin
      if f<max/2 then run(st,p+(max-f)*price[st]+20,max);
      run(st+1,p,f-(dis[st+1]-dis[st])/drive);
    end;
  end;
end;
begin
  m:=maxint;
  fillchar(dis,sizeof(dis),0);
  fillchar(price,sizeof(price),0);
  assign (input,'tour.in');
  reset (input);
  readln (tmp);
  readln (max,drive,s,num);
  dis[num+1]:=tmp;
  for i:=1 to num do readln (dis[i],price[i]);
  close (input);
  assign (output,'tour.out');
  rewrite (output);
  run (0,s,max);
  writeln (m:0:1);
  close (output);
end.