мне очень нужно и пролайкаю и дам лучший ответ

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080

Объем изображения  I=k*i*n , где k- количество точек, i- глубина цвета, n - количество слайдов
Глубина цвета i=㏒₂N, где N-количество цветов палитры
i=㏒₂256=8

I=1024*512*8*10/(8*1024*1024)= 5 Мбайт

Объем звука:

I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания. 

I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт

Общий объем презентации: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт
Еще добавляем 10 Кбайт служебной информации.

А объем флешки:  3 Гбайт= 3072 Мбайт
Свободное место 10%= 307,2 Мбайт

Поэтому презентация уместится.