Program Aktualny czas

Uses DOS;

FUNCTION AktualnyCzas:string;                   
Var
 godz,min,sek,sek100:word;                      
 sgodz,smin,ssek,tmps:string;                   
Begin
 GetTime(godz,min,sek,sek100);
 Str(godz,sgodz);
 If length(sgodz)=1 Then sgodz:='0'+sgodz;
 Str(min,smin);
 If length(smin)=1 Then smin:='0'+smin;
 Str(sek,ssek);
 If length(ssek)=1 Then ssek:='0'+ssek;
 tmps:=sgodz+':'+smin+':'+ssek;                 
 AktualnyCzas:=tmps;                            
End;

Begin
  WriteLn(AktualnyCzas);                        
End.