Найти действительные корни квадратного уравнения или вывести сообщение об их отсутствии. (программа Паскаль)

Question

Найти действительные корни квадратного уравнения или вывести сообщение об их отсутствии.

Answer 1

Program Korni;
uses crt;
var a,b,c,d,x1,x1:real;
begin
clrscr;
writeln (‘Введите коэффициенты квадратного уравнения’);
write(‘A=’); readln(a);
write(‘B=’); readln(b);
write(‘C=’); readln(c);
d:=sqr(b)-4*a*c;
if d<0 then writeln(‘Уравнение не имеет действительных корней’)
else
begin
if d=0 then
begin
x1:=-b/(2*a);
writeln(‘X=’,x1:6:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘X1=’,x1:6:2,‘ X2=’,x2:6:2);
end;
end;
readln;