дан прямоугольник со сторонами "a"и "b",разрезать его на квадраты и посчитать их количество на паскале

Тут нужна рекурсивная функция

напишу схематично

func CalcSquare (a, b : integer) : integer
begin
if (a = b)
Result := 1
else if (a = 1)
Result := b
else if (b = 1)
Result := a
else if (a > b)
Result := 1 + CalcSquare(a-b, b)
else if (a < b)
Result := 1 + CalcSquare(a, b-a)
end