Mail

В этот день много лет назад...
30 апреля. В 1945 году (80 лет назад) - Бойцы 1-го стрелкового батальона 756-го полка, которым командует капитан С. А. Неустроев, устанавливают на крыше рейхстага красный флаг. В ночь на 1 мая по приказанию командира 756-го полка полковника Ф. М. Зинченко принимаются меры по водружению на здание рейхстага знамени, врученного полку Военным советом 3-й ударной армии. Группу бойцов возглавляет лейтенант А.П. Берест. Ранним утром 1 мая на скульптурной группе, венчающей фронтон здания, уже будет развеваться Знамя Победы: его водрузили разведчики сержанты Михаил Егоров и Мелитон Кантария. Уже давно нет в живых героев-разведчиков, а совсем недавно скончался и полковник Неустроев. Почти всем участникам водружения Знамени Победы будет присвоено высокое звание Героя Советского Союза, потом ветераны войны обратились с просьбой посмертно присвоить звание Героя Российской Федерации и Алексею Бересту.

Turbo Pascal Documentation

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

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

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