program FormattedTime;
uses
SysUtils;
var
formatted_time: string;
begin
// Get the current time and format it as "HH:MM:SS"
formatted_time := FormatDateTime('hh:nn:ss', Now);
WriteLn('Formatted Time: ', formatted_time);
end.
(*
run:
Formatted Time: 18:28:25
*)