Можете написать по как в pascal нарисовать окружность(круг) ! !

Setbrushcolor(clblue); - установка синего цвета для закрашивания
circle(200,200,50); - закрашенный круг синего цвета с центром в точке (200,200) и радиусом 50