Pascal Размер диска

[#Azamat]

Программа выводит информацию о объемах диска.

Program DiskSize;
Uses Dos;
Begin
WriteLn('DiskSize = ',DiskSize(0) div 1024 div 1024,' Mb'); { объем диска }
WriteLn('DiskFree = ',DiskFree(0) div 1024 div 1024,' Mb'); { объем свободного пространства на диске }
End

Автор: Неизвестен