В углах квадратного листа железа сторона которого равна 1 м, вырезают четыре квадрата со стороной х. Затем складывают получившуюся развёртку сваривают швы и таким образом получается бак. Определите размер выреза х, при котором получится бак наибольшего размера.

//V = (100 -2*h)*(100 -2*h)*hconst L = 100;var V1, V2,h :real;beginv1:= 0;  v2:=1; h:=10;while (v2 - v1) >0 dobeginv1 := (100 - 2* h)* (100 - 2* h)*h;h := h +0.5;v2 := (100 - 2* h)* (100 - 2* h)*h;writeln('Высота = ', h , ', Объем ', v1);end;writeln('Высота = ', h , ', Максимальный объем ', v1);end.