[Keygenmusic]

по формуле окружности:
Y= -b±sqrt(sqr(R)-sqr(X-a))
где (a,b) центр окружности.
перевести это в паскалевский синтаксис и загнать в цикл думаю сам догадаешься игрека 2 штуки для кажд Х как видишь.