{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


Program ex18;

Uses dos;

Var version: word;

BEGIN
     version := DosVersion;
     WriteLn('MS-DOS version : ', Lo(version), '.', Hi(version));
END.