Напишите, , программу в delphi.

дано натуральное число n.

вычислить .

#include <iostream>

double multiply(double num1, double num2) {

   if (num2 > 0) return num1 + multiply(num1, num2 - 1);

   else if (num2 < 0) return -num1 + multiply(num1, num2 + 1);

   return 0;

}

signed main() {

   

   //2.2 * 2

   std::cout << multiply(2.2, 2) << std::endl;

   //4 * 2

   std::cout << multiply(4, 2) << std::endl;

   //-8 * 2

   std::cout << multiply(-8, 2) << std::endl;

   //0*1

   std::cout << multiply(0, 1) << std::endl;

   return 0;

}

Const
  n=4;
var
  arr: array[1..n, 1..n] of integer;
  i, j, t, buf: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент: ');
        readln(arr[i,j]);
      end;
    writeln('Введеная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
          write(arr[i,j]:4);
      writeln();
    end;
//Сортировка
  for j:=1 to n do
    for i:=1 to n-1 do
      for t:=i+1 to n do
        if arr[i,j] > arr[t,j] then
          begin
            buf := arr[i,j];
            arr[i,j] := arr[t,j];
            arr[t,j] := buf;
           end;
  writeln('Отсортированная матрица:');
   for i:=1 to n do
      begin
        for j:=1 to n do
          write(arr[i,j]:4);
        writeln();
      end;
  end.