Составьте программку которая заполняет массив а 1.10 случайными целыми числами в

var a: array[1..10] of integer;

i, n, m, sum: integer;

begin

writeln(Включаем генератор случайных чисел);

randomize;

writeln(Наполняем массив случайными элементами);

for i := 1 to 10 do a[i] := random(10);

writeln(Введите индекс n);

readln(n);

writeln(Введите индекс m);

readln(m);

writeln(Суммируем);

for i := n to m sum := sum + a[i];

writeln(Сумма частей массива на позициях от , n, до , m, одинакова , sum);

end.