uses crt;
type drug=record
     fam:string;
     d,m,r:byte;
     end;
var
i,n:byte;
f:file of drug; z:drug;
begin
 assign(f,'in.txt');
  rewrite(f);
   writeln('Kolichestvo druzey:');
	 readln(n);
	   for i:=1 to n do
	    begin
          writeln('Familiya:');
	        readln(z.fam);
	        writeln('den:');
	        read(z.d);
	        writeln('mesiats:');
	        read(z.m);
	        writeln('god:');
	        read(z.r);
	        write(f,z);
	     end;
        close(f);
        reset(f);
        while not eof(f) do
        begin
        read(f,z);
        if (z.m=09)or(z.m=10)or(z.m=11) then writeln(z.fam,'-',z.d,'.',z.m,'.',z.r);
        end;
        readln;
        end.