Нужно сделать в паскале! определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. внутренний диаметр внутреннего шара равен 10 см. считать, что шары вкладываются друг в друга без зазоров. если не затруднит, то еще можно в экселе)

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

begin

  var n: =readinteger('количество строк (столбцов) в матрице: ');

  writeln('*** исходная матрица ***');

  var a: =matrrandom(n,n,-99,99);

  a.println(4);

  println(4*a.colcount*'-');

  var i: =readinteger('укажите номер столбца (счет от 1): ');

  if i.inrange(1,a.colcount) then

  begin

    var col: =a.col(i-1);

    println('сумма элементов столбца',col.sum,'max=',col.max)

  end

  else

    println('недопустимый номер колонки')

end.

Function isequal(n: longint): boolean; { возвращает true, если первая и последняя цифры числа равны } var   s: string; begin   str(n,s);   isequal: =(s[1]=s[length(s)]) end; var   k: longint; begin   write('введите натуральное число '); read(k);   write('первая и последняя цифры введенного числа ');   if not isequal(k) then write('не ');   writeln('') end. тестовые решения: введите натуральное число 15342403 первая и последняя цифры введенного числа не введите натуральное число 745370007 первая и последняя цифры введенного числа