uses dos;
var
    year, month, mday, wday : word;
begin  
    GetDate(year, month, mday, wday);
    WriteLn(year, ' ', month,' ',mday, ' ' , wday);
end.


uses SysUtils;
begin
    WriteLn(DateTimeToStr(Now));
end.