Определить, на какие квадраты и в каком их количестве будет разрезан исходный прямоугольник - Pascal ABC

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

Дан прямоугольник с размерами 425х131. От него отрезают квадраты со стороной 131, пока это возможно. Затем от оставшегося прямоугольника вновь отрезают квадраты со стороной, равной 425-131*3=32, и т. д. На какие квадраты и в каком их количестве будет разрезан иcходный прямоугольник?

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

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

uses crt;
var a,b,k,x:integer;
begin
a:=425;
b:=131;
while b>0 do
 begin
  k:=a div b;
  writeln('Г‘ГІГ®Г°Г®Г*Г* ГЄГўГ*Г¤Г°Г*ГІГ*=',b,'  ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ®=',k);
  a:=a mod b;
  x:=a;
  a:=b;
  b:=x
 end;
end.

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

В начале кода используются библиотеки crt, которые необходимы для работы с консольным вводом-выводом.
Переменные a и b инициализируются значениями 425 и 131 соответственно.
Затем в цикле while выполняется деление a на b и результат записывается в переменную k.
После этого выводится строка с результатами деления.
Значение переменной a обновляется путем деления на b, а значение переменной b заменяется на остаток от деления.
Цикл while продолжается до тех пор, пока значение переменной b больше нуля.
После завершения цикла, значения переменных a и b заменяются на x, который был присвоен значению a перед последним циклом while.
Конец программы.