Составьте программу вычисления суммы элементов с m1 по m2 одномерного массива A(N), заполнив его рандомно

var
  a:array[0..100] of integer;
  n, m1, m2, i, s:integer;
begin
  randomize;
    writeln('Введите размер массива: ');
    readln(n);
    repeat
    for i:=1 to 10 do
    begin
      a[i]:=random(16);
      write(a[i],' ');
      end;
      until a[i]=10;
      writeln;
      writeln('Введите m1: '); readln(m1);
      writeln('Введите m2: '); readln(m2);
      s:=0;
    for i:=1 to n do begin
      if (a[i]>m1) and (a[i]<m2) then s:=s+a[i];
      end;
      writeln('Сумма элементов равна: ', s);
     
      end.

var
  a:array[1..100] of integer;
  n, m1, m2, i, s:integer;
begin
  randomize;
  writeln('Введите размер массива: ');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(16);
      write(a[i],' ');
    end;
  writeln;
  write('Введите m1: '); readln(m1);
  write('Введите m2: '); readln(m2);
  s:=0;
  for i:=1 to n do
    if (a[i]>m1) and (a[i]<m2) then
      s:=s+a[i];
  writeln('Сумма элементов равна: ', s);
  readln;
end.