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

Женя

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.