Подсчитать среднее арифметическое элементов массива, кратных 3

const n=20;
var a:array[1..n] of integer;
i,b,c:integer; k:real;
Begin
for i:=1 to n do read(a[i]);
b:=0;
c:=0;
for i:=1 to n do begin
if (a[i] mod 3 = 0) then begin
b:=b+a[i];
c:=c+1;
end;
end;
 
k:=b/c;
writeln(k);
end.

const n=20;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,b,c:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n do a[i]:=b[i];
for i:=1 to n do write(b[i]:4);
for i:=1 to n do begin
if (a[i]<9) and (a[i]<100) then writeln(a[i]);
end;
end.

const n=20;
var a:array[1..n] of integer;
b:array[1..n] of integer;
с:array[1..n] of integer;
i,b,c:integer;
Begin
writeln('Введите первый массив');
for i:=1 to n do read(a[i]);
writeln('Введите второй массив');
for i:=1 to n do read(b[i]);
 
for i:=1 to n do a[i]:=c[i]; {все из массива A переносим в некоторый массив C для того, чтобы сохранить данные}
for i:=1 to n do a[i]:=b[i]; {присваиваем элементы массива B в A}
{Теперь вставим данные в массив B из A(оно же и С - для этого оно и понадобилось, т.к. в A уже произошла замена элементов на элементы из B}
for i:=1 to n do b[i]:=c[i];
 
writeln('Массив A'); for i:=1 to n do write(a[i]:4);
writeln('Массив B'); for i:=1 to n do write(b[i]:4);
end.