Function f(n: integer): integer; begin if n < 1 then f : = 2; if n = 1 then f : = 2; if n > 1 then f : = 3 * f(n-1) + 2 * f(n-2); end; f(4)=

F(0)=2
f(1)=2
f(2)=3*f(1)+2*f(0)=3*2+2*2=10
f(3)=3*f(2)+2*f(1)=3*10+2*2=34
f(4)=3*f(3)+2*f(2)=3*34+2*10=102+20=122

ответ: 122

var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
  1: begin
     writeln('Введите 10 элементов массива: ');
     for i:= 1 to 10 do readln(X[i]);
     a:=X[1];
      for i:= 1 to 10 do
       if a < X[i] then a:=X[i];
     writeln('Максимальный элемент: ',a);
     end;
 2: begin
     writeln('Массив: ');
     for i:= 1 to 10 do
     begin
      X[i]:=random(101);
      write(X[i]:4);
     end;
    writeln;
    a:=X[1];
     for i:= 1 to 10 do
       if a < X[i] then a:=X[i];
     writeln('Максимальный элемент: ',a);
     end;
  end;
end.     

Может стоит почитать Теорию нормальныхх форм для чайников, мне кажется такие задачи слишком формализуют математически, в википедии такого понаписано, что волосы дыбом встают!))
а по существу: я просто выбрал неправильные ответы исходя из того, что форма BCNF -  это 3я нормальная форма без зависимости первичного ключа от неключевых атрибутов. Неключевыми атрибутами считаю date и major, (правда date автор так и не описала, какую дату оно означает). Поскольку в задании cName зависит сразу от нескольких функциональных зависимостей, то первый ответ - неверный, ибо это не 3я норм форма.  ответ под номером 3 исключается исходя из того, что эти два декомпозирование исходные отношения не имеют ключевой зависимости между ними. ответ 4 имеет зависимости от полей date или major, являющихся составными. Удовлетворяет 3NF, но противоречит BCNF, поэтому думаю, что ответ под номером 2 - наиболее подходящий