Вдвумерном массиве посчитать сумму чисел в обеих диагоналях, кол - во строк и столбцов одинаково, задается пользователем

1. решение для "школьников"// pascalabc.net 3.0, сборка 1073 var   i,n: integer;   s: string; begin   write('введите свое имя: '); readln(s);   if s[1]='и' then begin       n: =length(s)-1;       s: =s[1];       for i: =1 to n do s: =s+'*'   end;   writeln('результат работы: ',s) end. тестовое решение: введите свое имя: игорь результат работы: и**** введите свое имя: сергей результат работы: сергей 2. решение, каким оно должно быть, но этому не учат // pascalabc.net 3.0, сборка 1073 begin   var s: =readstring('введите свое имя: ');   if s[1]='и' then s: =s[1]+stringofchar('*',length(s)-1);   writeln('результат работы: ',s) end.

Формулы- это выражения состоящее из чисел,адресов, яйчеек, разнообразных функций, имен! которые соеденены знаками такие как: возведение в степень и выражения в скобках; умножение и деление; сложение и вычитание.функции- это готовые формулы для всяких вычислений,  куда надо просто вставить аргументынапример: крюк(а3; а9) крюк- это название функцииа3; а9- это те самые аргументыа отличаются тем что  формулы нужны для составления функцииа функции уже как бы готовые формулы куда просто вставляешь аргументы!