PROGRAM BABY;
VAR
	I,J,K,N0,N1,N2,GG0,GG1,GG2,MN,MM0,MM1,MM2,DD0,DD1,DD2:INTEGER;
	N01,N02:REAL;
	M:ARRAY[1..12] OF INTEGER;
	L:1..12;
BEGIN
	M[1]:=31;
	M[2]:=28;
	M[3]:=31;
	M[4]:=30;
	M[5]:=31;
	M[6]:=30;
	M[7]:=31;
	M[8]:=31;      
	M[9]:=30; 
	M[10]:=31; 
	M[11]:=30; 
	M[12]:=31; 
	K:=40*7;
	WRITE('Дата события: Год   (Ex:ГГ):');
	READLN(GG0);
	WRITE('Месяц (Ex:ММ):':32);
	READLN(MM0);
	WRITE('День  (Ex:ДД):':32);
	READLN(DD0);
	WRITE('Его: Год рождения:  (Ex:ГГ):');
	READLN(GG1);
	WRITE('Месяц рождения:(Ex:ММ):':32);
	READLN(MM1);
	WRITE('День рождения: (Ex:ДД):':32);
	READLN(DD1);
	WRITE('Ее:  Год рождения:  (Ex:ГГ):');
	READLN(GG2);
	WRITE('Месяц рождения:(Ex:ММ):':32);
	READLN(MM2);
	WRITE('День рождения: (Ex:ДД):':32);
	READLN(DD2);
		MN:=0;
		FOR L:=1 TO 12 DO
			BEGIN
			MN:=MN+M[L];
			(*WRITELN(MN)*)
			END;
	WRITELN(GG0,MM0,DD0,MN);
	WRITELN(GG1,MM1,DD1,K);
	WRITELN(GG2,MM2,DD2);
		IF (MM0<1) OR (MM0>12) THEN
			WRITELN('Такого месяца нет');
			N0:=DD0;
			FOR L:=MM0-1 DOWNTO 1 DO
				BEGIN
				N0:=N0+M[L];
				WRITELN(L,N0);	
				END;
					N1:=DD1;
					FOR L:=MM1-1 DOWNTO 1 DO
					N1:=N1+M[L];
						N2:=DD2;
						FOR L:=MM2-1 DOWNTO 1 DO
						N2:=N2+M[L];
		I:=TRUNC((GG0-GG1)/4);
		J:=TRUNC((GG0-GG2)/4);
			(*WRITELN('I=',I:2,'  J=',J:2);*)
		N01:=(MN*(GG0-GG1)+I+N0-N1-K)/4;
		N02:=(MN*(GG0-GG2)+J+N0-N2-K)/3;
			IF (N01-TRUNC(N01))>(N02-TRUNC(N02)) THEN
				WRITELN('*BOY*')
			ELSE
				WRITELN('*GIRL*');
			WRITELN('M:',(N01-TRUNC(N01)):4:3,'  W:',(N02-TRUNC(N02)):4:3)
END.