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

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

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

я пробовала у меня вышло 15 но возможны и другие варианты

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

1.папа перевозит одного из детей     возрашается обратно

2.папа перевозит 2 ребенка               возрашается обратно

3.перевозит маму                               и они выходят на другой берег 

var a: array[1..10] of integer;

i,t: integer;

begin

  for i : = 1 to 10 do

      read(a[i]);

  for i : = 1 to 10 do begin

      if (a[i]< 0) and t=0 then begin

          a[i]: =0;

          t: =1;

      end;

      writeln(a[i]);

  end;

end.