program aeg;
uses dos;
var
 tund, minut, sekund, sajandik: word;
 aasta, kuu, kuupaev, nadalapaev: word;
begin
 getdate(aasta, kuu, kuupaev, nadalapaev);
 writeln('T„na on ',kuupaev,'.',kuu,'.',aasta,',');
 writeln('n„dala ',nadalapaev,'. p„ev ning kell on ');

 gettime(tund, minut, sekund, sajandik);
 writeln(tund,'.',minut,' ning ',sekund,' sekundit');
end.