Question

Дописать программу "квадратные уравнения" на языке Паскаля 
Срочно!!!!!?!?!?!?!?!

Answer 1

var a, b, c, D, x1, x2, k: real;

begin

writeln('Введите A, B, C');

readln(a,b,c);

D:=sqr(b)-4*a*c;

k:=sqrt(D);

writeln('Дискриминант:', D);

if k>0 then x1:=(-b+k)/(2*a);

begin x2:=(-b-k)/(2*a); end;

if k=0 then x1:=-b/(2*a);

if k<0 then writeln('Корней нет');

writeln('Первый корень:', x1, ' Второй корень:', x2);

end.