Program PRACT24; Uses CRT; Var a, b, n: word; Begin ClrScr; Write('Введите длины сторон прямоугольника: '); Readln(a, b); if (b > a) then begin a := a + b; b := a - b; a := a - b; end; While (a > 0) do Begin If (b > a) then begin a := a + b; b := a - b; a := a - b; end; a := a - b; Inc(n); end; Writeln('Количество квадратов: ',n); readkey; end.
