program dosinfo;
uses windos,dos;
var
 f:text;
 h,m,s,hund,y,mon,d,dow:word;
begin
 assign(f,'dosinfo.inf');
 rewrite(f);
 getdate(y,mon,d,dow);
 writeln(f,'Report from ',d,'.',mon,'.',y);
 writeln(f,'Dos version - ',lo(dosversion),'.',hi(dosversion));
 gettime(h,m,s,hund);
 writeln(f,'Dos time - ',h,':',m);
 close(f);
end.