ребята, писал программу для решения квадратного уравнения
скомпилировалась, ввожу данные но получаю странную ошибу​

В строке вычисления корней в знаменателе нужно поставить скобки.

х1:=(-b+sqrt(D))/(2*a);

х2:=(-b-sqrt(D))/(2*a);