Помогите с информатикой пожалуйста, турбо паскаль.

Question

Имеется квадратный лист картона. Из листа по углам вырезают четыре квадрата и склеивают по сторонам вырезов. Какова должна быть сторона вврезаемого квадрата b, чтобы коробка имела наибольшую вместимость. Составить программу, вычислите объем коробки. 
Длина стороны - 40 см. Вырез b - 2 см, площадь дна коробки 1296 см², объем коробки 2592 см³. (Мне нжуно заполнить целую таблицу, от 1 см до 10 см)

sora_263 · Accepted Answer

program MaxVolumeBox;  &#10;  &#10;var  &#10;  b: integer; // сторона врезаемого квадрата  &#10; &#10;  sideLength, volume, maxVolume, baseArea: real; // длина стороны квадрата, объем, максимальный объем, площадь дна коробки  &#10;  &#10;begin  &#10; &#10;  // Инициализация начальных значений   &#10;  maxVolume := 0;  &#10;  &#10;  // Вывод заголовка таблицы  &#10;  writeln('b (см) | Сторона после вырезания (см) | Площадь дна (см²) | Объем коробки (см³)');  &#10; &#10;  writeln('-------------------------------------------------------------------------------');  &#10;  &#10;  // Перебираем значения b от 1 до 10   &#10;  for b := 1 to 10 do  &#10; &#10;  begin  &#10;    // Вычисляем длину стороны квадрата после вырезания  &#10;    sideLength := 40 - 2 * b;  &#10;      &#10;    // Вычисляем площадь дна коробки  &#10;    baseArea := sideLength * sideLength;    &#10; &#10;    // Вычисляем объем коробки  &#10;    volume := baseArea * b;  &#10;  &#10;    // Выводим результаты для текущего значения b в виде таблицы  &#10; &#10;    writeln(b:3, '    | ', sideLength:9:2, '                         | ', baseArea:14:2, '    | ', volume:14:2);  &#10; &#10;  &#10; &#10;    // Проверяем, является ли текущий объем больше максимального &#10;    if volume > maxVolume then   &#10;      maxVolume := volume;   &#10;  end;  &#10;   &#10;  // Выводим максимальный объем коробки   &#10;  writeln('-------------------------------------------------------------------------------');   &#10;  writeln('Максимальный объем коробки: ', maxVolume:0:2, ' см³');  &#10; &#10;end. 
Вывод данных:
 b (см) | Сторона после вырезания (см) | Площадь дна (см²) | Объем коробки (см³) &#10;------------------------------------------------------------------------------- &#10;  1    |     38.00                         |        1444.00    |        1444.00 &#10;  2    |     36.00                         |        1296.00    |        2592.00 &#10;  3    |     34.00                         |        1156.00    |        3468.00 &#10;  4    |     32.00                         |        1024.00    |        4096.00 &#10;  5    |     30.00                         |         900.00    |        4500.00 &#10;  6    |     28.00                         |         784.00    |        4704.00 &#10;  7    |     26.00                         |         676.00    |        4732.00 &#10;  8    |     24.00                         |         576.00    |        4608.00 &#10;  9    |     22.00                         |         484.00    |        4356.00 &#10; 10    |     20.00                         |         400.00    |        4000.00 &#10;------------------------------------------------------------------------------- &#10;Максимальный объем коробки: 4732.00 см³