Uses SysUtils,DateUtils;

Var
  D1,D2 : TDateTime;

Begin
  D1:=now();
    sleep(1000);
  D2:=now();
  writeln (MilliSecondsBetween(d2,d1));
End.