Задача на паскале с массивами

Задача на паскале с массивами.
Ввести одномерный массив A из 13 элементов. Определить в нём среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3.

Что получилось:
var A:array[1..13] of integer;
i,SrA: integer;
begin
SrA:=0;
writeln('введите массив À:');
for i:=1 to 13 do
begin
readln(A);
if (A
mod 4 = 1) and (A mod 4 = 3 ) then SrA:=A/13;
end;
writeln('среднее арифметическое = ', SrA);
end.

Выдает ошибку: попытка присвоить переменной типа integer выражение типа real.

  • if (A mod 4 = 1) and (A mod 4 = 3 ) then SrA:=A/13;
    почему на 13 делишь?? ?
    среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3