Функция, лист бумаги - Pascal

Формулировка задачи:

Имеется прямоугольный лист бумаги со сторонами а и b. Из листа делается коробка следующим образом: по углам листа вырезается четыре квадрата и коробка склеивается по швам. Какова должна быть сторона квадрата вырезанного из листа, чтобы коробка имела наибольшую вместимость? Вычисление оформить функцией.

Решение задачи: «Функция, лист бумаги»

Листинг программы

function max(a,b:integer):integer;
var m,xm,v,x:integer;
begin
m:=(a-2)*(b-2);
xm:=1;
x:=2;
while(a-2*x>0)and(b-2*x>0) do
 begin
  v:=(a-2*x)*(b-2*x)*x;
  if v>m then
   begin
    m:=v;
    xm:=x;
   end;
  x:=x+1;
 end;
max:=xm;
end;
var a,b:integer;
begin
writeln('Введите стороны листа');
readln(a,b);
write(max(a,b))
end.

Объяснение кода листинга программы

Функция с именем max, которая принимает два целых числа в качестве параметров и возвращает наибольшее из них.
В функции объявлены следующие переменные: a, b - параметры функции; m - переменная для хранения значения первого расчета; xm - переменная для хранения значения максимальной стороны; v - переменная для временного хранения значения; x - переменная для итеративного увеличения значения.
Переменная m инициализируется как произведение a и b, уменьшенное на 2 в квадрате.
Переменная xm инициализируется как 1.
Переменная x инициализируется как 2.
Запускается цикл while, который выполняется до тех пор, пока a-2x > 0 и b-2x > 0.
Внутри цикла переменной v присваивается значение (a-2x)(b-2x)x.
Если значение v больше значения m, то значения переменных m и xm обновляются.
Значение x увеличивается на 1 после каждой итерации цикла.
После окончания цикла, значение переменной max присваивается значение переменной xm.
В основной части программы запрашиваются значения a и b.
Значение функции max выводится на экран.