Помогите плз очень очень надо написать программу на бейсике

нужно наисать программу : ввести координаты точки a(x,y) проверить лежит ли точка а сегменту который образованый колом единичным радиусом з центром в начале координатпостроеном в первой чверт триугольником со сторонами 1 см построеном в третьей чверти

написать нужно на QBasic