Реализовать программу ,осуществляющую вывод решения квадратного уравнения (параметры a,b,c вводятся с клавиатуры) Хелп ми!!!

не а; ток паскаль

кст; ниже более полный

он правильней

вот исправил

Спасибо

program kvadratnoe;var a,b,c,d:real;begin Writeln('Введите коэффициенты:a,b,c'); readln(a,b,c); d:=b*b-4*a*c; if d >0 then   begin     Writeln('x1=',(-b-Sqrt(d))/2*a);     Writeln('x2=',(-b+Sqrt(d))/2*a)  end;  if d=0 then Writeln('x=',(-b/2*a));  if d<0 then Writeln('Действительных корней нет')end.