intr.pas

 {Intr.PAS}
 
 { Пример программы для процедуры Intr }
 
 Uses WinDos;
 
 Var Date, Year, Month, Day : String;
                       Regs : TRegisters; { Для модуля DOS используйте }
                                          { тип Registers.             }
 
 Begin
  Regs.AH:=$2A;
  With Regs Do
  Intr($21, Regs);
  With Regs Do
  Begin
   Str(CX, Year);
   Str(DH, Month);
   Str(DL, Day);
  End;
  Date:=Month+'-'+Day+'-'+Year;
  WriteLn('Сегодня : ', Date);
 End.