program QuadraticEquation; var   a, b, c, x1, x2, discriminant : real; begin   {ввід даних}   write('a = ');   readln(a);   write('b = ');   readln(b);   write('c = ');   readln(c);      {обчислення дискримінанту}   discriminant := sqr(b) - 4 * a * c;      if discriminant < 0 then     writeln('Квадратне рівняння не має коренів')   else     begin       if discriminant = 0 then         begin           {квадратне рівнняння має два однакових корені}           x1 := -b / (2 * a);           x2 := x1;         end        else          begin            {рівняння має два різні корені}            x1 := (-b + sqrt(discriminant)) / (2 * a);            x2 := (-b - sqrt(discriminant)) / (2 * a);          end;                {видід результату}        writeln('x1 = ', x1:8:3);        writeln('x2 = ', x2:8:3);      end;   writeln('Press Enter to Exit...');   readln; end.