<span>Program korni;
</span>
<span>var a,b,c,d,x1,x2: </span>real;
<span><span>Begin
</span></span>
Writeln ('Введите значение a',a);
<span>
Readln (a);
</span>
Writeln ('Введите значение b',b);
<span>
Readln (b);
</span>
Writeln ('Введите значение c',c);
<span>
Readln (c);
</span>
d:=sqr(b)-4*a*c;
writeln ('d=', d);
<span>if d></span>0 then
<span>
begin
</span>
<span> x1:=(-b+sqrt(d))/</span>2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln (' x1=', x1);
Writeln(' x2=', x2);
<span>
end;
</span>
<span>if d<</span>0 then writeln('Нет корней');
<span>
end.</span>