Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7

const
  n=20;
var
  m: array[1..n] of integer;
  i:byte;
  k,sum:integer;
begin
  randomize;
  sum:=0; k:=0;
  for i:=1 to n do
  begin
    m[i]:=random(n)+1;
    write(m[i],' ');
    if (m[i] mod 5 = 0) and (m[i] mod 7 <> 0) then
      begin
        sum:=sum+m[i];
        inc(k);
      end;
  end;
  Writeln;
  writeln('Sum = ',sum);
  writeln('K = ',k);
  readln;
end.

program rrr;
Uses crt;
Var i,s:integer;
Begin
Clrscr;
s:=0;
For i:=0 to 50 do
if (i mod 5=0) and (i mod 7<>0) then
Begin
s:=s+i;
Write(i,' ');
End;
WriteLn('Ñóììà: ',s);
ReadLn;;
End.

program rrr;
Uses
  crt;
Var
  k,i,s:integer;
Begin
  Clrscr;
  s:=0; k:=0;
  For i:=0 to 50 do
    if (i mod 5=0) and (i mod 7<>0) then
      Begin
        s:=s+i;
        k:=k+1;
        Write(i,' ');
      End;
  writeln;
  WriteLn('Sum: ',s);
  WriteLn('Quantity: ',k);
  ReadLn;
End.