Дан массив из N элементов.Определить среднее арифметическое кратных 5 и некратных 10

Var
  A:array[1..50] of integer;
  i,n,k:integer;
  s:real;
Begin
  write('Введите N: '); readln(n);
  k:=0;
  s:=0;
  For i:=1 to n do
    Begin
      readln(A[i]);
      if (A[i] mod 5=0) and (A[i] mod 10<>0) then
      Begin
        s:=s+A[i];
        inc(k);
      End;
    End;
  writeln;
  if k>0 then
    writeln('Среднее арифметическое  = ',s/k:0:2)
  else
    writeln('Таких чисел нет.');
  readln;
End.

var
    m : Array Of ShortInt;
    i, n : Byte;
    avr5 : LongInt = 0;
    avr10 : LongInt = 0;
    count5 : Byte = 0;
    count10 : Byte = 0;
 
begin
    Write('Input n=');
    ReadLn(n);
    SetLength(m, n);
    for i := 0 to n-1 do
    begin
        Write('m[', i+1, ']=');
        ReadLn(m[i]);
        if ((m[i] mod 5) = 0) then
        begin
            avr5 := avr5 + m[i]; //сумма таких элементов
            Inc(count5); //их количество
        end;
        if ((m[i] mod 10) <> 0) then
        begin
            avr10 := avr10 + m[i]; //сумма таких элементов
            Inc(count10); //их количество
        end;
    end;
    if (count5 <> 0) then
        WriteLn('AVR5=', (avr5 / count5):0:3)
    else
        WriteLn('No one');
    if (count10 <> 0) then
        WriteLn('AVR10=', (avr10 / count10):0:3)
    else
        WriteLn('No one');
end.

const
 n=10;
var
A:array[1..n] of integer;
i,n,k:integer;
s:real;
Begin
 
k:=0;
s:=0;
For i:=1 to n do
Begin
readln(A[i]);
if (A[i] mod 5=0) and (A[i] mod 10<>0) then
Begin
s:=s+A[i];
inc(k);
End;
End;
writeln;
if k>0 then
writeln('Среднее арифметическое = ',s/k:0:2)
else
writeln('Таких чисел нет.');
readln;
End.