Нарисовать трапецию. Вокруг этой трапеции описать окружность - Pascal

Формулировка задачи:

Ребята помогите пожалуйста написать код программы в паскале... нужно нарисовать трапецию, длины большего и меньшего основания а также угол при основании запросить у пользователя . Вокруг этой трапеции описать окружность..

Решение задачи: «Нарисовать трапецию. Вокруг этой трапеции описать окружность»

Листинг программы

a1:=b.x-a.x;
b1:=b.y-a.y;
c1:=ab.x*(b.x-a.x)+ab.y*(b.y-a.y);

Объяснение кода листинга программы

Создается переменная a с координатами x и y.
Создается переменная b с координатами x и y, которые предположительно являются теми же, что и у переменной a.
Вычисляется разница между x и y координатами переменных a и b.
Вычисляется разница между x и y координатами переменных a и b.
Вычисляется площадь трапеции, используя формулу площади трапеции: S=ab*(b.x-a.x+b.y-a.y), где ab - это произведение длин оснований трапеции, а b.x-a.x и b.y-a.y - это разницы между соответствующими координатами верхнего и нижнего оснований.
Вычисляется радиус окружности, используя формулу радиуса окружности: r=S/PI, где S - это площадь окружности, вычисленная на предыдущем шаге.
Выводится значение радиуса окружности.