回帖：Program escape;
var
m,s,t,mn,sn,tn:longint;
p:boolean;
begin
Assign(input,'escape.in');
reset(input);
readln(m,s,t);
close(input);
Assign(output,'escape.out');
rewrite(output);
if s119) then begin tn:=tn+7;sn:=sn+120;p:=true;end;
2:if ((t-tn)>=3) and (s-sn>51) then begin tn:=tn+3;sn:=sn+60;m:=0;p:=true;end;
3:if ((t-tn)>=3) and (s-sn>51) then begin tn:=tn+3;sn:=sn+60;m:=1;p:=true;end;
4:if ((t-tn)>=3) and (s-sn>51) then begin tn:=tn+3;sn:=sn+60;m:=2;p:=true;end;
5:if ((t-tn)>=3) and (s-sn>51) then begin tn:=tn+3;sn:=sn+60;m:=3;p:=true;end;
6:if ((t-tn)>=2) and (s-sn>34) then begin tn:=tn+2;sn:=sn+60;m:=0;p:=true;end;
7:if ((t-tn)>=2) and (s-sn>34) then begin tn:=tn+2;sn:=sn+60;m:=1;p:=true;end;
8:if ((t-tn)>=2) and (s-sn>34) then begin tn:=tn+2;sn:=sn+60;m:=2;p:=true;end;
9:if ((t-tn)>=2) and (s-sn>34) then begin tn:=tn+2;sn:=sn+60;m:=3;p:=true;end;
end;
if not p then begin tn:=tn+1;sn:=sn+17;end;
end;
if (sn>=s) and (tn