Как пользователей сети интернет называют многократно повторенную шутку интернет мэн а бубочка б барабан в г пианино да баян

Program znanija;var    komlekt: array[1..10] of real; begin          write('Введите стоимость ручек: ');     readln(komlekt[1]);     write('Введите колл. ручек: ');     readln(komlekt[2]);     komlekt[3]:=  komlekt[1] * komlekt[2];          write('Введите стоимость тетрадей: ');     readln(komlekt[4]);     write('Введите колл. тетрадей: ');     readln(komlekt[5]);     komlekt[6]:=  komlekt[4] * komlekt[5];          write('Введите стоимость учебников: ');     readln(komlekt[7]);     write('Введите колл. тетрадей: ');     readln(komlekt[8]);     komlekt[9]:=  komlekt[7] * komlekt[8];          writeln('В итоге: ');     writeln('Тетрадей : ', komlekt[6],'(По ',komlekt[4],'р)');     writeln('Ручек : ', komlekt[3],'(По ',komlekt[1],'р)');     writeln('Тетрадей : ', komlekt[9],'(По ',komlekt[7],'р)'); end.

// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  var a:=MatrRandom(m,n,20,50); a.Println(5);
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
   48   40   44   35   46   29   50   36
   31   43   25   37   26   31   30   43
   35   48   38   22   40   39   31   34
   26   21   23   36   44   50   41   48
   30   21   41   20   34   28   49   24