Mail

В этот день много лет назад...
29 января. В 1895 году (131 год назад) - Одно из первых выступлений Николая II в качестве нового царя в Аничковом дворце в Петербурге перед депутацией от дворянства, земств и городов. Царь волнуется и говорит громко. Его супруга, в то время слабо понимавшая по-русски, встревожено спрашивает у стоящей рядом фрейлины: "Почему он кричит?" На что фрейлина отвечает по-французски: "Он объясняет им, что они дураки..."

Turbo Pascal Documentation

Процедура DiskSize
Модуль Dos

     Функция: Возвращает число свободных байтов на  заданном
диске.
     Описание: DiskSizе(диск: word)
     Тип результата: Длинный целый (longint).
     Примечания: Значение параметра "диск", равное 0, задает
определенный по умолчанию диск, значение 1 указывает на диск
А, 2 - на диск В и т.д. Если номер диска недействителен,  то
данная процедура возвращает значение -1.
     Прочее: См. также процедуры DiskFree, GetDir.
     Пример:

uses Dos;
  begin
    Writeln(DiskSize(0) div 1024,' килобайт свободно');
  end.