plot same-area rectangular in a grid page

Question

I wish to plot three rectangulars with the same area in a grid page same as below one. How can I do that?

Answer 1

Here is an example for $n =60$. Of coure, $n = 4$ does also work.

n = 60;
a = Divisors[n];
b = n/a;
Graphics[{
  FaceForm[], EdgeForm[Black], 
  MapThread[Rectangle[{0, 0}, {##}] &, {a, b}]
  }]

Answer 2

An alternative way using Divisors with RectangleChart:

n = 60;
RectangleChart[Transpose[{#, n / #} & @ Divisors[n]], 
 ChartLayout -> "Overlapped", ChartStyle -> FaceForm[], Axes -> False]