gettime.pas

 {GetTime.PAS}
 
 { Пример программы для процедуры GetTime }
 
 Uses WinDos, WinCrt;
 
 Var H, M, S, Hund : Word;
 
 Function LeadingZero(W : Word) : String;
 Var S : String;
 Begin
  Str(W:0, S);
  If Length(S) = 1 Then S:='0'+S;
  LeadingZero:=S;
 End;
 
 Begin
  GetTime(H, M, S, Hund);
  WriteLn('Сейчас ', LeadingZero(H), ':', LeadingZero(M), ':',
                     LeadingZero(S), '.', LeadingZero(Hund));
 End.