За четверть ученик получил 100 оценок. Сообщение о том, что он получил четверку, несет 2 бита информации. Сколько четверок ученик получил зач

Помогите найти, где я ошибся, ибо сам не смог этого сделать!
program udalenie;
const
n=20;
Type
Tarray=array[1..n] of integer;
var i,s,j:integer;
a:Tarray;
begin
randomize;
for i:=1 to n do begin
a [i]:=random(100);
write(a[i]:3, ' ' );
end;
s:=0;
for i:=1 to n do
begin
if (a[i] mod 3=0) or (a[i] mod 5=0) then
begin
s:=s+1;
for j:=i to n-s do
a[i]:=a[i+1];
a[n+1-s]:=0;
end
end;
write('dsd');
for i:=1 to n-s do
write(a[i]:3, ' ' );
end.

что он получил тройку несёт 3 бита информации. Сколько троек получил ученик за четверть?