Дано три пятёрки 5 5 5=1 надо поставить любые знаки чтобы получилось единица

5^(5-5)=1
5 в степени (5-5) значит в нулевой степени  равно 1

Type
  mas=array[,] of integer;
const
  n=5;
  m=6;
var
  i,j,ik,jk,k:integer;
  a:mas;
  b:array[0..n-1]of integer;//вс массив
begin
setlength(a,n,m);
writeln('Массив:');
for i:=0 to n-1 do
  begin
  for j:=0 to m-1 do
    begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    end;
  writeln;
  end;
writeln('Вставка строк:');// в массиве b признак наличия в строке 1-го четного
for i:=0 to n-1 do
    if a[i,0] mod 2=0 then b[i]:=1;
for i:=0 to n-1 do k:=k+b[i];
k:=n+k-1;
setlength(a,k+1,m);
ik:=k;
for i:=n-1 downto 0 do
  begin
  if b[i]=1 then
      begin
      for jk:=0 to m-1 do a[ik,jk]:=1;
      ik:=ik-1;
      end;
  for jk:=0 to m-1 do a[ik,jk]:=a[i,jk];
  ik:=ik-1;
  end;
for i:=0 to k do
  begin
  for j:=0 to m-1 do write(a[i,j]:4);
  writeln;
  end;  
end.

Option Explicit

Sub laba9()
    Dim N As Integer, a() As Integer, i As Byte, j As Byte, min As Integer, l1 As Integer, l2 As Integer
    Dim b() As Integer
    N = Val(InputBox("Введите размерность массива"))
    ReDim a(N, N)
    Sheets("Лист1").Select
    Sheets("Лист1").Range("A1:Z26").Clear
    For i = 1 To N
        For j = 1 To N
            a(i, j) = Rnd * 100
            Cells(i, j) = a(i, j)
        Next j
    Next i
    min = a(1, 1)
    l1 = 1
    l2 = 2
    For i = 1 To N
        For j = 1 To N
          If a(i, j) < min Then
                min = a(i, j)
                l1 = i
                l2 = j
            End If
        Next j
    Next i
    ReDim b(N - 1, N - 1)
    For i = 1 To l1 - 1
        For j = 1 To l2 - 1
            b(i, j) = a(i, j)
        Next j
        For j = l2 + 1 To N
            b(i, j - 1) = a(i, j)
        Next j
    Next i
    For i = l1 + 1 To N
        For j = 1 To l2 - 1
            b(i - 1, j) = a(i, j)
        Next j
        For j = l2 + 1 To N
            b(i - 1, j - 1) = a(i, j)
        Next j
    Next i
    For i = 1 To N - 1
        For j = 1 To N - 1
            Cells(i + N + 2, j) = b(i, j)
        Next j
    Next i
End Sub