Нарисовать и сдвинуть треугольники (Графика в TurboPascal)

[Ньютон]

Объясните пожалуйста как сдвинуть 3 треугольника к центру на r2))

Program L;
uses crt,graph;
var Driver,Regim:integer;
    j,x,y,l,i,x0,y0,r,r1,r2:integer; f,df,m,n,k:real;
    a,b:array[1..3] of pointtype;
begin randomize;

writeln('vvedite storonu trikutnika'); readln(m);
repeat
writeln('Vvedite n (2-4):');
readln(n);
until (n>=2) and (n<= 4);
l:=round(m/n);

Driver:=Detect;
InitGraph(Driver,Regim,'');

x0:=GetmaxX div 2; y0:=GetmaxY div 2;
f:=pi/2; df:=2*pi/3;
r1:=round(m*sqrt(3)/4);
for i:=1 to 4 do begin
x:=x0+round(r1*cos(f));
y:=y0-round(r1*sin(f));
a[i].x:=x; a[i].y:=y;
f:=f+df;
end;
Drawpoly(4,a);
r2:=round(l*sqrt(3)/4);
for i:=1 to 3 do begin
f:=pi/2; df:=2*pi/3;
for j:=1 to 4 do begin
x:=a[i].x+round(r2*cos(f));
y:=a[i].y-round(r2*sin(f));
b[j].x:=x; b[j].y:=y;
f:=f+df;
end;
Drawpoly(4,b);
end;

readln;
closeGraph;
end.

[rubius2008]

сначала определить как они расположены относительно центра, а дальше задать смещение (+ или -) по каждой из координат, соответствующее вашему r2. при этом нарисовав фигуру в исходном положение цветом фона