Определить в ячейке C7 вторую цифру большого из чисел находящегося в ячейках A1:A6 и B2:B5​​

Поподробнее ну это конечно нормально, смешать три языка программирования в одну кучу ну то, что на pascal  выцарапал. даже не знаю, стоило ли тратить время на это. ну а ответ: day = 10 var k, m, day: integer; dat: array[1..10] of integer; begin   dat[1]: = 2; dat[2]: = 2;   dat[3]: = 3; dat[4]: = 3;   dat[5]: = 4; dat[6]: = 4;   dat[7]: = 5; dat[8]: = 5;   dat[9]: = 6; dat[10]: = 6;   day: =1; m : = dat[1];   for k : = 2 to 10 do   if dat[k] > = m then begin       m: = dat[k];       day : = k;   end;   write(day); end.

Function numsum(n: integer): integer; var d: integer; begin   d: =n mod 10;   if d=n then numsum: =n   else numsum: =d+numsum(n div 10) end; var a,b,d: integer; begin   write('введите два числа: '); read(a,b);   d: =numsum(a)-numsum(b);   if d> 0 then writeln('сумма цифр в первом числе больше')   else       if d< 0 then writeln('сумма цифр во втором числе больше')       else writeln('сумма цифр в обоих числах одинакова') end.