Менеджер находится в командировке. Ему необходимо привести очень важную для фирмы информацию.
В его распоряжении находится только флешка, на которую можно поместить 4 Гбайт.
На носителе информации уже находятся файлы:

фильм 1,27 ГБ
фото 1,16 ГБ
Отчёт. xlxs 15,7 МБ
Какая часть флешки заполнена, какая часть свободна?
(ответ вырази в процентах, округли до десятых).

Заполнено: %
Свободно: %

Накопи́тель на жёстких магни́тных ди́сках или НЖМД (англ. hard (magnetic) disk drive, HDD, HMDD), жёсткий диск, в компьютерном сленге «винче́стер» — устройство хранения информации, основанное на принципе магнитной записи. Является основным накопителем данных в большинстве компьютеров. 
В отличие от «гибкого» диска (дискеты), информация в НЖМД записывается на жёсткие (алюминиевые или стеклянные) пластины, покрытые слоем ферромагнитного материала, чаще всего двуокиси хрома. В НЖМД используется одна или несколько пластин на одной оси. Считывающие головки в рабочем режиме не касаются поверхности пластин благодаря прослойке набегающего потока воздуха, образующейся у поверхности при быстром вращении. Расстояние между головкой и диском составляет несколько нанометров (в современных дисках около 10 нм[1]), а отсутствие механического контакта обеспечивает долгий срок службы устройства. При отсутствии вращения дисков головки находятся у шпинделя или за пределами диска в безопасной зоне, где исключён их нештатный контакт с поверхностью дисков. 
Также, в отличие от гибкого диска, носитель информации совмещён с накопителем, приводом и блоком электроники и (в персональных компьютерах в подавляющем количестве случаев) обычно установлен внутри системного блока компьютера.

ИЛИ ВИНЧЕСТЕР

Var a: array [1..5, 1..5] of integer;
    i, m, j: integer;
begin
     for i := 1 to 5 do
         for j := 1 to 5 do
         begin
              a[i, j] := random(50) - 25;
              writeln('[', i, ',', j, '] => ', a[i, j]);
         end;

     for i := 1 to 5 do
         for j := 1 to 5 do
             if (a[i, j] mod 2 = 0) then a[i, j] := 30;

     writeln();

     for i := 1 to 5 do
         for j := 1 to 5 do
              writeln('[', i, ',', j, '] => ', a[i, j]);
end.

Для второго не понял, как решать ._.