记录编号	100092	评测结果	AAAAAAAAAA
题目名称	[USACO Feb08] 越野跑	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	0.005 s
提交时间	2014-05-02 23:24:53	内存使用	0.17 MiB

var
a:char;t,m,u,f,d:longint;
begin
assign(input,'racing.in');assign(output,'racing.out');
reset(input);rewrite(output);
readln(m,t,u,f,d);
for t:=1 to t do begin readln(a);
if (a='u')or(a='d') then m:=m-u-d;
if (a='f')then m:=m-2*f;if m<0 then break;end;
if m>0 then write(t) else write(t-1);
close(input);close(output);end.