Написать программу с использованием процедуры или функции. объявлен массив целых чисел. m размером 5х10. заполнить массив числами из промежутка [-20,20]. каждый элемент массива заменить его кубом. исходный и измененный массив вывести на экран. возведение в 3 степень организовать с функции или процедуры

type  mas = array [1..5, 1..10] of integer; //объявляем тип массива

 

var  m: mas;   //переменная типа массива  i, j: integer;   //переменные для цикла

 

procedure cubemas(var m: mas); //процедура возведения в кубvar   i, j: integer;   //локальные переменные цикла в процедуре

begin  write('измененный массив: ');   for i: = 1 to 5 do    for j: = 1 to 10 do    begin      m[i, j]: = sqr(m[i, j]) * m[i, j];   //возводим элемент массива в куб      write('m[', i, ', ', j, '] = ', m[i, j], '   ');   //печатаем элемент массива    end;   //конец цикла  writeln;   //перевод на новую строкуend;   //конец процедуры

 

begin  write('исходный массив: ');   for i: = 1 to 5 do    for j: = 1 to 10 do    begin      m[i, j]: = random(40) - 20;   {присваиваем элементу массива случайное значение из промежутка [-20, 20] }      write('m[', i, ', ', j, '] = ', m[i, j], '   ');   //печатаем элемент массива    end;   //конец цикла  writeln;   //перевод на новую строку  cubemas(m);   //вызываем процедуру возведения в кубend. //конец программы

  иван-дурак             -   конь   али-баба                 -     пещера с сокровищами мышка-норушка     -   теремок иван-царевич         -   избушка на курьей ножке лиса -                   колобок, колобок, спой мне песенку! - колобок королевич  елисей     -         ветер, ветер!   ты могуч, ты гоняешь стаи туч  ты волнуешь сине море,всюду веешь на просторе. не боишься никого, кроме бога одного. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                 -       ветер   королевич елисей                     месяц, месяц, мой дружок, рожок! ты встаешь во тьме глубокой, круглолицый, светлоокий, и, обычай твой любя, звезды смотрят на тебя. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                               -     месяц