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


Program ex17;

Uses dos;

BEGIN
Writeln(DiskSize(0), ' octets');
Writeln(DiskSize(0) div 1024, ' Ko');
Writeln(DiskSize(0) div 1048576, ' Mo');
Writeln(DiskSize(0) div 1073741824, ' Go');
END.