Question

Написать программу в Паскаль!!! Даю 20 баллов!!! ​

Answer 1

===== PascalABC.NET =====

procedure Разрезать(var a, b: integer);

begin

 if a * b = 0 then

   exit;

 if a < b then

   Swap(a,b);

 Writeln(a div b, ' квадратов размером ', b, ' x ', b);

 (a, b) := (b, a mod b);

 Разрезать(a, b)

end;

begin

 var (a, b) := (425, 131);

 Разрезать(a, b)

end.