请去掉注释，并重试
**********菜***********************啊川密元部深************
program Noname0;
uses dos,crt;{需要包含dos单元}
var h,min,s,ms,y,m,d,td:word;
begin
gettime(h,min,s,ms);{得到现在的系统时间，时，分，秒，毫秒}
getdate(y,m,d,td);{得到日期，年，月，日，星期几}
writeln(y,'-',m,'-',d);{输出系统日期}
writeln(h,':',min,':',s,'.',ms);{输出系统时间}
readkey();{等待按键}
end.
