В чём ошибка программы написанной на паскаль

ошибка в том что пишешь на паскале а не на си

х не объявлен, наверно, по ветке Д=0 ты хотел х1 := ...точки с запятой и зачем извлекать корень квадратный из Д, если Д = 0? просто -Б/(2*а).

куда делась точка с запятой? x:=-b+sqrt(d)/(2*a); writeln('x=',x);