Kodas:

program Dabar;

uses Dos; {naudojames Dos moduliu}



{ Surašome kintamuosius, kuriuos imsime iš kompiuterio }

var met, men, dien,sav :word;

val, min, sek, dal :word;



{ Atspausdiname datą ir laiką }

begin

Getdate (met, men, dien, sav);

Gettime (val, min, sek, dal);

writeln('Dabar yra: ' ,met, '/' ,men, '/', dien, '/' ,sav);

writeln('Laikas: ' ,val, '/' ,min, '/', sek, '/' ,dal);

readln;

end.