(* Chapter 14 - Program 9 *)
program Get_Time_And_Date;         (* For TURBO Pascal 4.0 or 5.0 *)

uses Dos;

var Year,Month,Day,Weekday        : word;
    Hour,Minute,Second,Hundredths : word;

begin
   GetTime(Hour, Minute, Second, Hundredths);
   GetDate(Year, Month, Day, Weekday);
   Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
   Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
end.