uses dos;
var regs:registers;
begin
regs.ah := $30;
intr($21,regs);
write(#13,#10,'DOS version is ',regs.al,'.',regs.ah,#10);
end.