Ввести элементы одномерного массива размером 30 с клавиатуры и вывести на печать в несколько строчек.

Program mat_pow;
  Uses Crt;
  Const
    n = 10;
  Type arr = array[1..n,1..n] of extended;
  Var
    matrix : arr;
    i,j : byte;
 
  Function Power(Base,Exponent : extended) : extended;
    Var
      Tmp : extended;
    Begin
      Power := 0;
      If Int(Exponent/2) = Exponent/2 Then Base := Abs(Base);
      If Exponent = 0 Then
        Begin
          Power := 1;
          Exit;
        End;
      If Base = 0 Then
        Begin
          power := 0;
          exit;
        End;
      If Base > 0 Then
        Begin
          Tmp := Exp(Abs(Exponent)*ln(Base));
          If Exponent > 0 Then
            Begin
              Power := Tmp;
              exit;
            End;
          If Exponent < 0 Then
            Begin
              Power := 1/Tmp;
              exit;
            End;
        End;
      If Base < 0 Then
        Begin
          Tmp := Exp(Abs(Exponent)*ln(Abs(Base)));
          If Exponent > 0 Then
            Begin
              Power := -Tmp;
              exit;
            End;
          If Exponent < 0 Then
            Begin
              Power := -1/Tmp;
              Exit;
            End;
        End;
    End;
 
  Procedure Put(var arr : arr;
                n : byte);
    Const
      a = 1.5;
      pow = 1/5;
    Var
      i,j : shortint;
      x,y : extended;
    Begin
      x := 2;
      i := 1;
      While (x <= 5) and (i <= n) do
        Begin
          j := 1;
          y := -1;
          While (y <= 1) and (j <= n) do
            Begin
              arr[i,j] := Power((a*x*y + 1.3),pow)*(sin(x-a)/cos(x-a));
              y := y +0.2;
              {Write(arr[i,j]:3:3);}
              Inc(j);
            End;
          {Writeln;}
          x := x + 0.3;
          Inc(i);
        End;
    End;
 
  Procedure Out(a : arr;
                n : byte);
    Var i,j : byte;
    Begin
      For i := 1 to n do
        Begin
          For j := 1 to n do
            Write(a[i,j]:8:3);
          Writeln;
        End;
    End;
 
 
BEGIN
  ClrScr;
    Put(matrix,n);
    Out(matrix,n);
  Readkey;
END.