PROGRAM KIRKA;
  USES CRT;
   TYPE
    DAY=ARRAY [1..2] OF INTEGER;
    MONTH=ARRAY [1..2] OF INTEGER;
    YEAR=ARRAY [1..4] OF INTEGER;
   VAR
    D:DAY;
    M:MONTH;
    Y:YEAR;
    I,FACT:BYTE;
    DATE:INTEGER;
    D1,D2:INTEGER;
   BEGIN
    WRITELN('Введите кол-во дней');
    READLN(FACT);
    WRITELN('Введите первый год');
    READLN(D1);
    WRITELN('Введите второй год');
    READLN(D2);
    WRITELN('Введите дату ГГГГ ММ ДД');
    FOR I:=1 TO FACT DO
     READ(Y[I],M[I],D[I]);
     BEGIN
     IF (Y[I]>D1) AND (Y[I]