Вданном вопросе речь идет об одной из старейших пьес театра, ее автором стал уроженец города мерзебург. пьеса была написана по указу царя из династии романовых, который отличался чрезвычайно мягким, добродушным характером, за что получил соответствующее прозвище. в основу пьесы лег известный библейский сюжет, одним из героев которого был персидский царь “владеющий праведным царством”. укажите в ответе: 1) название пьесы (без кавычек) 2) длительность ее первой постановки (укажите только количество часов)

//написано на  pascalabccompiler.core v3.3.0.1540 (16.09.2017) var     arr: array[1..20] of integer;     m: integer : = 45; begin     for var k : = 1 to 20 do     begin         arr[k] : = random(49) - 5;         if arr[k] < m then m : = arr[k];     end;     write('исходный массив: ');     for var k : = 1 to 20 do     begin         write(arr[k], ' ');     end;     writeln;     write('наименьшее число массива: ', m); end.

// pascalabc.net 3.3, сборка 1623 от 16.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк (столбцов) в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(n,n,10,30);   a.println(3); writeln(3*a.colcount*'-');   write('строки с повторяющимися элементами: ');   var (i,k): =(0,0);   foreach var строка in a.rows do begin       i+=1;       if строка.count< > строка.distinct.count then begin           k+=1; print(i)           end       end;   if k=0 then writeln('нет')   else writeln;   write('столбцы с повторяющимися элементами: ');   (i,k): =(0,0);   foreach var столбец in a.cols do begin       i+=1;       if столбец.count< > столбец.distinct.count then begin           k+=1; print(i)           end       end;   if k=0 then writeln('нет')   else writeln end. пример количество строк (столбцов) в массиве: 6 *** исходный массив ***   30 16 23 17 19 27   18 13 21 19 21 11   30 10 24 27 22 20   19 28 15 29 15 18   11 30 22 25 21 15   27 14 27 28 18 28 строки с повторяющимися элементами: 2 4 6 столбцы с повторяющимися элементами: 1 5