Как нарисовать олимпийские кольца в PascalABC?

Центр темной окружности в точке 400*200. Левая и правая окружности верхнего ряда сдвинуты на 200 пикселей. Радиус окружностей 90.

Центры окружностей нижнего ряда меж центрами окружностей верхнего ряда. Координата y смещена вниз на 100 пикселей. 

program ring_5;

Uses GraphABC;

begin

SetWindowSize(800, 600); //размеры экрана

setPenWidth(10);//ширина пера

setpencolor(clBlack); //установка цвета

DrawCircle(400,200,90);

setPenColor(clSkyBlue);

DrawCircle(200,200,90);

setPenColor(clRed);

DrawCircle(600,200,90);

setPenColor(clGreen);

DrawCircle(500,300,90);

setPenColor(clYellow);

DrawCircle(300,300,90)

end.