Mail

В этот день много лет назад...
16 апреля. В 1934 году (91 год назад) - ЦИК СССР вводит почетное звание Героя Советского Союза - высшую степень отличия за заслуги перед государством, связанные с совершением геройского подвига. Первым Героем Советского Союза станет летчик Анатолий Ляпидевский, удостоенный его, как и еще 6 летчиков - С.А. Леваневский, В.С. Молоков, Н.П. Каманин, М.Т. Слепнев, М.В. Водопьянов, И.В. Доронин, за спасение терпящих бедствие членов экипажа и пассажиров парохода "Челюскин".

Turbo Pascal Documentation

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

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

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