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.