Масштабировать размер прямоугольника. Коэффициент подобия задаётся пользователем. Паскаль.

//Pascal ABC.NET 3.1 сборка 1256uses GraphABC; Var x1,y1,x2,y2:integer; k:real;beginx1:=window.Center.X-200;y1:=window.Center.Y-100;x2:=x1+250;y2:=y1+200;rectangle(x1,y1,x2,y2);readln(k);GraphABCCoordinate.Create.SetScale(k,k);clearwindow;rectangle(x1,y1,x2,y2);end.

//PascalABC.NET 3.1 сборка 1239uses GraphABC;var    w, h: integer;    k: real;begin    k := 1;    repeat        w := round(k * 200) div 2;        h := round(k * 100) div 2;        rectangle(window.Center.X - w, window.Center.Y - h, window.Center.X + w, window.Center.Y + h);        readln(k);        ClearWindow(clRandom);    until false;end.центр масштабирования в центре окна