Заполнить массив и вывести на печать следующим образом: 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.