Pascal. Задача 2-5

Пользователь вводит коэффициенты a,b,c квадратного уравнения ax2 + bx + c = 0. Вывести корни этого уравнения или сообщение, что их нет. Отдельно рассмотреть, когда корни совпадают.

Решение

var
  a, b, c, D : real;
begin
  writeln('Введите коэффициенты квадратного уравнения a, b , c');
  read(a, b, c);
  D := b*b - 4*a*c;
  if D < 0 then writeln('Уравнение не имеет корней')
  else if D = 0 then writeln('Корни совпадают: ', -b/(2*a))
       else begin
         writeln('Первый корень: ', (-b + sqrt(D))/(2*a));
         writeln('Второй корень: ', (-b - sqrt(D))/(2*a));
       end;
end.