{Diskfree.PAS} { Пример программы для функции DiskFree } Uses WinDos, WinCrt; Begin WriteLn('Свободно ', DiskFree(0) Div 1024, ' кбайт.'); End.