program posl;
var
   f1,f2:file of integer;
   q:boolean; {TRUE-Vozrast,FALSE-ubivayush}
   c,c1,k11,k12,k21,k22:integer;
   begin
   assign(f1,'c:\file1.txt');
   assign(f2,'c:\file2.txt');
   reset(f1);
   reset(f2);
   read(f1,c);
   read(f2,c1);
if c<c1 then q:=true;
while not EOF(f1) do
   begin
     c:=c1;
     read(f1,c1);
  if (c<c1) and not (q) then
   begin
   k11:=k11+1;
   q:=false;
   if (c>c1) and (q) then
    begin
      k12:=k12+1;
      q:=true;
    end;
read(f2,c);
read(f2,c1);
if c<c1 then q:=true;
while not EOF(f2) do
begin
c:=c1;
read(f1,c1);
if (c<c1) and not (q) then
   begin
   k21:=k21+1;
   q:=false;
   if (c>c1) and (q) then
      begin
      k22:=k22+1;
      q:=true;
end;
end;
end;
end;
end;
end.