var n,a,b,c,max,min: integer;
begin
read(n);
max:=n*6;
a:=n div 6;
b:=a;
a:=a*6;
a:=n-a;
If a<>0 then begin

If a=1 then a:=6
else
If a=2 then a:=5
else
If a=3 then a:=4
else
If a=4 then a:=3
else
If a=5 then a:=2
else
If a=6 then a:=1;
end
else a:=b;
min:=a;
write(min,' ',max);
end.

uses math;
var a,b,p,t:extended;
   n,i:integer;
   s:string;
begin
   read(n);
   readln(p);
   a:=30;
   b:=4000;
   for i:=2 to n do
   begin
     readln(t,s);
     if p=t then
     else if (p<t) and (s=' closer') or (p>t) and (s=' further') then
       a:=max(a,(p+t)/2.0)
     else
       b:=min(b,(p+t)/2.0);
     p:=t;
   end;
   writeln(a:1:6,' ',b:1:6);
end.