program ptime(output); uses extlib; begin write('The current time is: '); writetime(output, local(time)); writeln end.