Здравствуйте, Бойко Вадим Игоревич!
Поскольку Вы все-таки не предоставили исправленное условие, логично предположить, что оно выглядит так: Вычислить f(b0)+f(b1)+...+f(bn).
Кроме того было бы логично, поскольку имеем дело с натуральными числами, числа, кратные 3 делить на 3, а не числа, дающие остаток 2. С этим ладно, второй массив сделаем вещественного типа, но думаю что и тут в условии ошибка. Но, имея этот код, легко изменить его, если уточнится условие.


Приложение:
uses crt;
const nmax=50;{максимальный размер массивов}
type Tnatur=1..maxint;{тип натуральные числа}
var n,i:byte;
b:array[0..nmax] of Tnatur;{исходный массив}
f:array[0..nmax] of real;{результирующий массив}
begin
clrscr;
randomize;{генерация псевдослучайных чисел}
repeat
write('n=');{вводим размер массива с проверкой правильного ввода}
readln(n);
until (n>0)and(n<=nmax);
writeln('Ishodnyj massiv:');
for i:=0 to n do
begin
b[i]:=random(20)+1;{псевдослучайные числа в инт. 1-20}
write(b[i],' ');
end;
writeln;
writeln;
writeln('Rezultat:');
for i:=0 to n do
begin
if b[i] mod 3=0 then f[i]:=sqr(b[i]){если кратно 3}
else if b[i] mod 3=1 then f[i]:=b[i]{если в остатке 1}
else f[i]:=b[i]/3;{если в остатке 2}
write(f[i]:7:2);{выводим в форматированном виде, 7 позиций под число, 2 знака после запятой}
end;
readln
end.