выполните ручную прокрутку программы при а равно 2 и B равно 1, а затем-при а равно 1 и B равно 2 ​

В результате такого приёма персонаж будет выглядеть объёмным на плоском экране телевизора.

При возможности добавьте в осветительную систему и четвёртый источник света, который будет служить фоновым освещением, с его можно будет изменять яркость освещения фона, расположенного за объектом съёмки на заднем плане.

Недостаток освещения при видеосъемке

Очень частой проблемой для операторов становится нехватка света. Многие камеры при малой освещённости выдают нечёткую, зашумленную (зернистую) картинку, что просто не может радовать.

Некоторые производители пишут что их камеры могут снимать при недостаточной освещённости (при горящей свече) камеры, конечно, могут снимать в этих условиях, но качество заставляет ожидать лучшего.

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.