Оптимизационное моделирование методом дискретизации. При каких размерах открытого бака для жидкостей при известном объеме на его изготовление потребуется наименьшее количество металла? Оформите решение задачи в виде компьютерной программы.​

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10

и 2 и3 подходят, правда 2 - это частный случай 3

program a1; vara: array [1..15] of integer; a2: array [1..15] of integer; mas1: integer; mas2: integer; raz: integer; i: integer; begin//подключаем датчик случайных чиселrandomize; //цикл заполняющий массивы и нахождение сумм элементов масиваfor i: =1 to 15 dobegina[i]: =random(100); a2[i]: =sqr(a[i])-a[i]; mas1: =mas1+a[i]; mas2: =mas2+a2[i]; end; //находим разницу массивовraz: =mas1-mas2; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 dobeginwrite(a[i],'|')end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 dobeginwrite(a2[i],'|')end; writeln(''); //выводим на экран разность массивовwrite('разность сумм элементов массива: ', raz); writeln(''); end.