Помогите написать программный код для решения квадратного уравнения в Паскале с блок схемой

P.S модеры, это не контрольная и не экзаменационные задания, а дали порешать

расстояние D от точки P до прямой AB по формуле D = 2SPAB / |AB|, где SPAB — площадь треугольника PAB. С помощью этой процедуры найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C. Помогите пожалуйста.
Proc16. Описать функцию Otr(Ax,Ay,Bx,By) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов: |AB| = sqrt((Ax-Bx)2 + (Ay-By)2) (Ax, Ay, Bx, By — вещественные параметры). С помощью этой функции найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D.
Proc18. Используя функции Otr и Perim из заданий Proc16 и Proc17, описать функцию Area(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую площадь треугольника ABC по формуле Герона: SABC = sqrt(p·(p–|AB|)·(p–|AC|)·(p–|BC|)), где p — полупериметр. С помощью этой функции найти площади треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

(вот еще если понадобиться)Proc17. Используя функцию Otr из задания Proc16, описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

Помогите пожалуйста!)

для решения следующей задачи: Подсчитать разницу произведения и частного
двух чисел, вводимых с клавиатуры. Результат вывести на экран

прошу помочь, если знаете! зараннее спасибо))!

крестики в две любые свободные клетки, второй ставит в любую свободную клетку нолик. Цель первого игрока — поставить пять крестиков подряд. Второй же должен ему в этом помешать. Кто — начинающий или его соперник — победит в этой игре, как бы ни играл его партнёр? Рассмотрите случаи: а) N=10 Надо написать алгоритм действий для решения этой задачи. Помогите пожалуйста!