иса.

program MaxSquares;
var
a, b, a1, b1, squaresCount, maxWidth, maxHeight, maxSquaresCount: integer;
begin
maxSquaresCount := 0;
write('Enter the length of the rectangle (a): ');
readln(a);
write('Enter the width of the rectangle (b): ');
readln(b);
for a1 := 1 to a do
begin
for b1 := 1 to b do
begin
squaresCount := (a div a1) * (b div b1);
if (squaresCount > maxSquaresCount) and (a1 * b1 <= a) and (a1 * b1 <= b) then
begin
maxSquaresCount := squaresCount;
maxWidth := a1;
maxHeight := b1;
end;
end;
end;
writeln('The maximum number of squares that can be formed is: ', maxSquaresCount);
writeln('Each square has dimensions ', maxWidth, 'x', maxHeight);
end.

Пример работы программы:

Enter the length of the rectangle (a): 12
Enter the width of the rectangle (b): 8
The maximum number of squares that can be formed is: 6
Each square has dimensions 2x2