с тестом 4.3. Чтобы в MS Excel 2007 при копировании формулы из одной ячейки в другую адрес ячейки в формуле изменялся автоматически, нужно: А) чтобы ячейка имела относительный адрес Б) чтобы ячейка имела абсолютный адрес В) выполнить команду Главная – Ячейки Г) выполнить команду Формулы – Зависимости формул – Влияющие ячейки
4.4. Правильный вариант записи формулы в табличном процессоре Excel: А) =COS(B1-A1)^3/(B1-A1)+C1^2 Б) =COS^3(B1-A1)/(B1-A1)+C1^2 В) =COS(B1-A1)^3/B1-A1+C1^2 Г) =COS(B1-A1^3)/(B1-A1+C1^2) Д) (COS(B1-A1)^3)/(B1-A1)+C1^2

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   

Const n=5;
var a:array[1..n,1..n] of integer;
i,j,d,k,l,m:integer;
begin
k:=1;
i:=1; j:=1;
a[i,j]:=1;
d:=n-1;
 for l:=1 to d do
  begin  k:=k+1;  j:=j+1; a[i,j]:=k; end;
for m:=1 to n div 2 do
 begin
 for l:=1 to d do
  begin  k:=k+1;  i:=i+1; a[i,j]:=k; end;
 for l:=1 to d do
  begin  k:=k+1;  j:=j-1; a[i,j]:=k; end;
  d:=d-1;
 for l:=1 to d do
  begin  k:=k+1;  i:=i-1; a[i,j]:=k; end;
 for l:=1 to d do
  begin  k:=k+1;  j:=j+1; a[i,j]:=k; end;
  d:=d-1;
 end;
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Результат:
    1    2    3    4   5
  16  17  18  19   6
  15  24  25  20   7
  14  23  22  21   8
  13  12  11  10   9