program pascua;
var arch:Text;
  aa,mes,dd,hh,min,i:Integer;
begin
  aa := 2020;
  mes := 5;
  dd := 7;
  hh := 5;
  min := 45;
  assign(arch,'Reporte.txt');
  rewrite(arch);
  writeln('Las fechas son:');
  for i:=1 to 70 do begin
    inc(min,44);
    if (min>59) then begin
      dec(min,60);
      inc(hh);
    end;
    inc(hh,12);
    if(hh>23)then begin
      dec(hh,24);
      inc(dd);
    end;
    inc(dd,29);
    if ((mes=1) or (mes=3) or (mes=5) or (mes=7) or (mes=8) or (mes=10)or (mes=12)) then begin
      dec(dd,31);
      inc(mes);
    end;
    if (mes=2) then begin
      if(aa mod 4 = 0) then begin
        if(dd>29) then begin
          dec(dd,29);
          inc(mes);
        end;
      end else begin
        if(dd>28) then begin
          dec(dd,28);
          inc(mes);
        end;
      end;
    end;
    if( (mes=4) or (mes=6) or (mes=9) or (mes=11) ) then begin
      if dd>30 then begin
        dec(dd,30);
        inc(mes);
      end;
    end;
    if(mes>12)then begin
      dec(mes,12);
      inc(aa);
    end;
    writeln(arch,'-  ',hh:2,':',min:2,'    ',dd:2,'/',mes:2,'/',aa:4);
  end;
end.