fpcdocs/olinuxex/ex5.pp


1
2
3
4
5
6
7
8
9
10
11
12

Program Example5;

{ Program to demonstrate the GetTime function. }

Uses oldlinux;

Var Hour, Minute, Second : Word;

begin
  GetTime (Hour, Minute, Second);
  Writeln ('Time : ',Hour:2,':',Minute:2,':',Second:2);
end.