Заполнить массив и вывести на печать следующим образом: 11111 22222 33333 4444455555

program z2; uses crt; var a: array[1… 25] of byte; {- описание массива}i,j: byte; beginclrscr; for i: =1 to 5 do begin {- цикл, отвечающий за присваемую цифру}for j: =5*i-4 to 5*i do begin {- цикл, отвечащий за индекс элемента массива}a[j]: =i; write (a[j]); end; writeln; end; readkeyend.