Написать код для нахождения D(дискриминанта) в тетради и в FREE Pascal.(Используя приложение для телефона или ПК)

var a, b, c,d, x1, x2:Real;

begin

write('a=');ReadLn(a);

Write('b=');ReadLn(b);

Write('c=');ReadLn(c);

d:=sqr(b)-4*a*c;{вычислен дискриминант}

if d<0 then begin writeln('нет решения');break ;end;

if d=0 then begin WriteLn('Одно решение');WriteLn('x=' ,-b/(2*a));end;

WriteLn('x1=',(-b+Sqrt(d))/(2*a));

WriteLn('x2=',(-b-Sqrt(d))/(2*a));

readln;

end.

Объяснение:

Я профи в этом

Эта программа кроме дискриминанта ещё найдёт иксы к тому же если нет решения, программа напишет нет решения

Я смог