Составить алгоритм вычисления корней квадратного уравнения

Ax²+bx+c=0 пример: 2х²+х-6=0 a=2 b=1 c=-6 1)d(дискриминант)=b²-4*a*c d=(1)²-4*2*(-6)=49> 0=> 2 разных корня °если: d> 0=> 2 разных корня, °если: d< 0=> корней нет °если: d=0=> 2 одинаковых корня 2)x1,2=-b±√d/2*a x1=-1+√49/2*2=-1+7/4=6: 4=3/2=(одна целая,одна вторая)-это запиши в цифрах x2=-1-√49/2*2=-1-7/4=-8/4=-2 ответ: -2; (одна целая,одна вторая) вот и все)

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л

2) еще раз налить туда 3 л

3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л