PROGRAM BESSELSCHETAGESZAHLEN (IN,OUT);
VAR
  JD,JDE,JDA:INTEGER;
  D,T,O,F,M,ML,LM,L:REAL;
BEGIN
  READLN;READ(JDA,JDE);
 FOR JD:=JDA TO JDE DO BEGIN
  D:=JD-2415020;
  T:=D/36525;
  O:=281.220833+1.719175*T+0.000361*T*T;
  F:=0.01675104-4.18E-5;
  M:=358.475833+0.9856002669*D-0.00015*T*T-3.3E-6;
  ML:=259.183275-0.0529539222*D+2.077E-3*T*T+2.2E-6;
  LM:=270.434164+13.1763965268*D-1.13333E-3*T*T+1.9E-6*T*T*T;
  L:=296.104608+13.0649924465*D+1.9167E-3*T*T+1.439E-5*T*T*T;
  REPEAT M:=M-360 UNTIL M<360;
  REPEAT ML:=ML+360 UNTIL ML>0;
  REPEAT LM:=LM-360 UNTIL LM<360;
  REPEAT L:=L-360 UNTIL L<360;
  WRITELN("JD:",JD:16);
  WRITELN("EXZENTRIZITAET:",F:28:6);
  WRITELN("LAENGE DES PERIHELS(ERDE):",O:17:6," *");
  WRITELN("MITTLERE ANOMALIE:",M:25:6," *");
  WRITELN("MITTL. LAENGE DES MONDKNOTENS:",ML:13:6," *");
  WRITELN("MITTL. LAENGE DES MONDES:",LM:18:6," *");
  WRITELN("MITTLERE ANOMALIE:",L:25:6," *");
  WRITELN;
  WRITELN;
 END;
END.