JULDAY .PAS

{* Юлиа́нский день *}

Unit JULDAY ;
Interface
Implementation
Begin
 writeln('День по Юлианскому календарю
'
);
End.

Program pas29403;

Uses JULDAY .pas; {* Эту строку можно удалить *}
Function julday(mm, id, iyyy : integer) : integer;
Const {* Предопределенные *}
  igreg = 588829;
Var {* Необходимые переменные *}
  ja  : integer;
  jm  : integer;
  jy  : integer;
  jul : integer;
Begin
  If (iyyy = 0) Then
  Begin
    writeln('there is no year zero.');
    readln; {* Приостановка программы. Ожидание Enter *}
  End;
  If (iyyy < 0) Then
    iyyy := iyyy + 1;
  If (mm > 2) Then
  Begin
    jy := iyyy;
    jm := mm + 1
  End;
  Else Begin
    jy := iyyy - 1;
  jm := mm + 13
End;
  jul := trunc(365.25 * jy) + trunc(30.6001 * jm) + id + 1720995;
If (id + 31 * (mm + 12 * iyyy) > = igreg) Then
Begin
  ja := trunc(0.01 * jy);
  jul := jul + 2 - ja + trunc(0.25 * ja)
End;
julday := jul
End....