Формула программы которая выщитывает Дискриминант и корни уравнения(Pascal)

program ABC;

var

a,b,c,d,x1,x2: real;

begin

writeln('Эта программа находит D из полного квадратного уравнения ');

writeln ('Ведите a,b,c ');

readln(a,b,c);

d:=(b*b -4*a*c) ;

writeln ('Дискриминант =' ,d);

if d>0 then begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

writeln('x1=' ,x1, 'x2=' ,x2 )

end

else

if d=0 then begin

x1:=-b/(2*a);

writeln ('x= ' ,x1)

end

else writeln ('Уравнение не имеет корней')

end.

Формула которая находит наименьшее число(Pascal)

program ABC;

var

a,b,c,max: real;

begin

writeln('Введите значение a,b,c ');

readln(a,b,c);

max:=a ;

if b> max then max:=b;

if c>max then max:=c;

writeln('наибольшее число ',max)

end.