Как нарисовать олимпийские кольца в 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.