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

11111

22222

33333

44444

55555

program z2;

uses crt;

var a:array[1 ... 25] of byte; { - описание массива}

i, j:byte;

begin

clrscr;

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;

readkey

end.