Здравствуйте, Семиин Алексей Анатольевич! Вот код программы.
x1,x2 - корни
a,b,c - коэффициенты кв. уравнения
d - дискриминант

Приложение:
program kvadr;var a,b,c:real; d:real;procedure korni(a,b,c:real);var x1,x2:real; d:real;begin if a<>0 then begin d:=b*b-4*a*c; if d>=0 then begin x1:=(-b-sqrt(d))/2/a; x2:=(-b+sqrt(d))/2/a; writeln(‘Корни x1=‘ ,x1:0:2, ‘ x2= ‘, x2:0:2); end else writeln(‘Действительныхкорней нет‘); end else writeln(‘Нет квадратного уравнения‘);end;begin write(‘A= ‘); readln(a); write(‘B= ‘); readln(b); write(‘C= ‘); readln(c); korni(a,b,c);end.

Здравствуйте, Семиин Алексей Анатольевич!
procedure kvur(a, b, c: real);
var x1, x2, d: real;
begin
d := b * b - 4 * a * c;
if d < 0 then
writeln(‘Ур-ие решений не имеет‘)
else
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a)
WriteLn(‘x1=‘, x1, ‘, x2=‘, x2);
end;
end;

Здравствуйте, Семиин Алексей Анатольевич!
Смотрите код программы в приложении

Приложение:
{110034}uses crt;type abc=array[1..3]of real;procedure get_element(var x:real;y:integer);begin write(‘введите константу номер ‘,y,‘ =‘); readln(x);end;function D(x1,x2,x3:real):real;begin D:=sqr(x2)-4*x1*x3;end;var i:integer; a:abc;begin clrscr; for i:=1to 3do begin get_element(a[i],i); end; if D(a[1],a[2],a[3])=0 then begin write(‘уравнение имеет одно решение :‘,-a[2]/(2*a[1]):3:2); end; if D(a[1],a[2],a[3])>0 then begin writeln(‘уравнение имеет два решения‘); writeln(‘первое :‘,(-a[2]+sqrt(D(a[1],a[2],a[3]))/(2*a[1])):3:2); writeln(‘второе :‘,(-a[2]-sqrt(D(a[1],a[2],a[3]))/(2*a[1])):3:2); end; if D(a[1],a[2],a[3])<0 then writeln(‘нет решений‘); readln;end.