Cоставте программу на delphi 7 вариант 17 по примеру 80

* "F" (file) specs define files and other i/o devices

    FARMstF1   UF   E        K     Disk    Rename(ARMST:RARMST)

     * "D" specs are used to define variables and parameters

     * The "prototype" for the program is in a separate file

     * allowing other programs to call it

     /copy cust_pr

     * The "procedure interface" describes the *ENTRY parameters

    D getCustInf      PI

    D  pCusNo                        6p 0   const

    D  pName                        30a

    D  pAddr1                       30a

    D  pAddr2                       30a

    D  pCity                        25a

    D  pState                        2a

    D  pZip                         10a

     /free

       // The "chain" command is used for random access of a keyed file

       chain pCusNo ARMstF1;

       // If a record is found, move fields from the file into parameters

       if %found;

          pName  = ARNm01;

          pAddr1 = ARAd01;

          pAddr2 = ARAd02;

          pCity  = ARCy01;

          pState = ARSt01;

          pZip   = ARZp15;

       endif;

       

     // RPG makes use of switches.  One switch "LR" originally stood for "last record"

     //LR actually flags the program and its dataspace as removable from memory.

       *InLR = *On;

     /end-free

Объяснение:

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.