fpc/docs/linuxex/ex5.pp
1998-03-25 11:26:49 +00:00

13 lines
216 B
ObjectPascal

Program Example5;
{ Program to demonstrate the GetTime function. }
Uses linux;
Var Hour, Minute, Second : Word
begin
GetTime (Hour, Minute, Second);
Writeln ('Time : ',Hour:2,':',Minute:2,':',Second:2);
end.