Дополните алгоритм из примера 9 так, чтобы с его можно было найти наибольшую из четырёх величин a, b, c и d.

Max (max(a,  b), max(c,  d))

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =matrgen(7,7,(i,j)-> i< 7-j? '*': ' ');   a.println(2) end. результат   * * * * * * *   * * * * * *    * * * * *        * * * *            * * *                * *                    *   

Const n=7; var a: array[1..n,1..n] of char; i,j: integer; begin for i: =1 to n do   for j: =1 to n do   if j< =n-i+1 then a[i,j]: ='*' else a[i,j]: =' '; for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 2);   writeln;   end; end. результат:   * * * * * * *   * * * * * *      * * * * *        * * * *          * * *            * *              *