Mail

В этот день много лет назад...
26 апреля. В 1986 году (38 лет назад) - 01:23. Самая страшная техногенная катастрофа XX века. Взрыв четвертого энергоблока Чернобыльской АЭС. По своим последствиям это самая грандиозная авария, причем всех "подарков" ученые до сих пор выявить не могут. Достаточно того, что большая территория Белоруссии, России и Украины оказалась заражена радиоактивными осадками, а вырвавшееся на свободу из реактора облако осадков накрыло несколько европейских стран, долетев даже до Норвегии и Финляндии. В атмосферу было выброшено несколько миллионов кубических метров радиоактивных газов, что во много раз превысило выброс от ядерных взрывов над Хиросимой и Нагасаки. Из зоны в радиусе 30 км от взорвавшегося реактора была проведена полная эвакуация жителей. Проживание в ней запрещено. "Мирный атом" так и не удалось приручить до конца, а Чернобыль чуть не поставил крест на всей атомной энергетике. В программе "Время" о катастрофе было сказано лишь 28 апреля, первая информация "От Совета Министров СССР" помещена в "Правде" 30 апреля.

Turbo Pascal Documentation

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

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

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