Что нужно сделать, чтобы отправить эту программу на выполнение?​

Нажать на зелёный флажок вверху над сценой с персонажем

// PascalABC.NET 3.0, сборка 1073
const
  m=5;
  n=4;
  a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
  b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
  k=3;
var
  i,j:integer;
  sk:real;
  s:array[1..m,1..n] of real;
begin
  Writeln('Массив S');
  for i:=1 to m do begin
    for j:=1 to n do begin
      s[i,j]:=a[i]*b[j];
      Write(s[i,j]:7:2)
    end;
    Writeln
  end;
  sk:=0;
  for i:=1 to m do sk:=sk+s[i,k];
  Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.

Результат выполнения программы:
Массив S
  16.20   6.40 -12.80  -7.00
 -57.51 -22.72  45.44  24.85
  25.92  10.24 -20.48 -11.20
 -43.74 -17.28  34.56  18.90
  55.89  22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

int main()

{

int i,j,n,sum,a[30][30];

printf("n=");

srand(time(NULL));

scanf("%d",&n);

printf("Matrix:\n");

sum = 0;

for (i = 1; i <= n; i++)

{

  for (j = 1; j<=n; j++)

  {

           a[i][j]=1+rand()%9;

    printf("%d  ",a[i][j]);

  }

  printf("\n");

}

printf("\n");

for (i=2;i<=n-1;i++)

{

  for(j=1;j<=2*i-1;j++)

    if(i!=j)

      sum+=a[i*2-j][j];

  a[i][i]=sum;

  sum=0;

}

printf("Output matrix:\n");

for (i = 1; i <= n; i++)

{

  for (j = 1; j <= n; j++)

           printf("%d  ", a[i][j]);

  printf("\n");

}

return 0;

}