Дан массив 7 элементов, заполненный различными двузначными числами. Организовать ввод с клавиатуры, т.к. при заполнении случайным образом могут быть повторения. Вывести массив в строку: номер - значение. Определить:
1) максимальный элемент и его порядковый номер;
2) минимальный элемент и его порядковый номер;
3) во сколько раз (округлить до целых) максимальный больше минимального.

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrReal('Введите семь различных двухзначных чисел'+NewLine,7);  a.Select((x,i)->Format('[{1}]:{0}',x,i+1)).Println(', ');  var imax:=a.IndexMax;  var imin:=a.IndexMin;  Writeln('Максимальный элемент: ',Format('[{0}]:{1}',imax+1,a[imax]));  Writeln('Минимальный элемент: ',Format('[{0}]:{1}',imin+1,a[imin]));  Writeln('Максимальный элемент больше минимального в ',    Round(a[imax]/a[imin]),' раз(а)')end.ПримерВведите семь различных двухзначных чисел 23 64 24 28 21 11 19[1]:23, [2]:64, [3]:24, [4]:28, [5]:21, [6]:11, [7]:19Максимальный элемент: [2]:64Минимальный элемент: [6]:11Максимальный элемент больше минимального в 6 раз(а)