Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле x1,2 = (−B ± √D ) / (2·A), где D — дискриминант, равный B2 – 4·A·C — Pascal(Паскаль)

program kvur;
var x1, x2, A, B, C, D: real;
begin
    writeln('Программа для решения уравнения A * x^2 + B * x + C = 0. ');
    write('Введите коэффициент А: ');
    readln(A);
    write('Введите коэффициент В: ');
    readln(B);
    write('Введите коэффициент C: ');
    readln(C);
    D := sqr(B) - 4 * A * C;
    x1 := (-B + sqrt(D)) / (2 * A);
    x2 := (-B - sqrt(D)) / (2 * A);
    writeln('х1 = ', x1:5:2);
    writeln('х2 = ', x2:5:2);
end.

program sqroot;
var
	a,b,c:real;	{ коэффициенты уравнения }
	x1,x2:real;	{ корни уравнения }
	d:real;		{ дискриминант }
begin
	writeln('*Решение квадратного уравнения*');
	write('Введите значения коэффициентов');
	write(' в одной строке и нажмите <Enter>');
	readln(a,b,c);	{ ввод коэффициентов }
	d:=b*b-4*a*c;	{ вычисление дискриминанта }
	if d >= 0
		then
			begin
				x1:=-b+sqrt(d)/(2*a);
				x2:=-b-sqrt(d)/(2*a);
				writeln('Корни уравнения');
				writeln('x1=',x1,' x2=',x2);
			end
		else
			writeln('Корней нет');
end.

program sqr2file;
var
     a,b,c,x1,x2:real; {коэффициенты и корни уравнения }
     d:real; { дискриминант }
     f:text; { файл для вывода результатов работы программы }
begin
     writeln('*Решение квадратного уравнения*');
     writeln('Введите значения коэффициентов');
     write(' в одной строке через пробел и нажмите <Enter> ');
     readln(a,b,c);
     d:=b*b-4*a*c;
     if d >= 0  then
     begin
          x1:=-b+sqrt(d)/(2*a);
          x2:=-b-sqrt(d)/(2*a);
     end;

     { вывод результатов в файл }

     assign(f,'rezult.txt'); { назначаем файловой переменной имя}
     rewrite(f); { открываем файл в режиме замещения существующего}
     writeln(f,'Решение квадратного уравнения');
     writeln(f,'Коэффициенты уравнения: ',
                a:6:3,b:6:3,c:6:3);
     if d <0
               then writeln(f,'У уравнения нет корней.')
          else writeln(f,'Корни уравнения: x1=',x1:6:3,' x2=',
                         x2:6:3);
     close(f); { закрываем файл }
     writeln('Результаты работы программы в файле rezult.txt');
end.