Сколько различных квадратов можно обвести в прямоугольнике из NxM квадратных клеток? - Pascal ABC

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

Подскажите, где искать зависимость для составления алгоритма? На площади смотреть? Вот задача Подсчитать, сколько различных квадратов можно обвести в прямоугольнике из NxM квадратных клеток. 1<=N<=10000, 1<=M<=10000. Входные данные (файл KV.IN): N M Выходные данные (файл KV.OUT): K Пример: Входной файл 2 3 Выходной файл 8

Решение задачи: «Сколько различных квадратов можно обвести в прямоугольнике из NxM квадратных клеток?»

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

Function Max(a,b : Integer) : Integer;
Begin
  If a>b then Max:=a else Max:=b;
end;

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

Создается функция Max, которая принимает два целых числа в качестве параметров и возвращает наибольшее из них.
Определяется константа N, которая представляет собой количество строк в прямоугольнике.
Определяется константа M, которая представляет собой количество столбцов в прямоугольнике.
Вычисляется размер площади прямоугольника, который равен произведению N и M.
Создается пустой список для хранения различных квадратов.
Запускается цикл, который будет выполняться N*M раз.
В каждой итерации цикла выбирается случайная ячейка из прямоугольника.
Проверяется, является ли выбранная ячейка квадратом. Если да, то она добавляется в список различных квадратов.
После завершения цикла, список различных квадратов возвращается в качестве результата функции.