Помогите разобраться,палками не бейте)

[Khan255]

var a,b,c,d:integer; x1,x2:real;
begin 
  writeln('Введите коэффеценты');
  readln(a,b,c);
  d:=b*b-4*a*c;
    case d of
    (d<0): writeln('Не решается');
    (d=0): begin
    x1:=-b/(2*a);
    writeln('x = ', x1);
    end;
    (d>0): begin 
    x1:= -b - sqrt(d)/(2*a);
    x2:= -b + sqrt(d)/(2*a);
    writeln('x1 = ',x1,' x2 = ',x2);
    end;
    
    end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Посмотрел уроки,и сделал по ним вычисление квадратных корней в квадратном уравнении с помощью if then else,получилось,решил посамостоячельнить и написать с помощью переменных case of ,и начали вылизать ошибки.Помогите найти ошибки,и поправить

[Аватар]

https://itteach.ru/pascal/pascal-operator-vibora-case

[Khan255]

Спасибо

[jillitil]

Для новичков понять сложновато плюс не совсем правильно для языка, но пусть будет.

VAR
  a, b, c, d, e: integer;
  x1, x2: real;
begin
  writeln('Введите коэффициенты');
  readln(a,b,c);
  d:=b*b-4*a*c;
  e:= (Byte(d>0)) - (Byte(d<0));
    case e of
    -1: writeln('Нет решения среди множества действительных чисел.');
     0: begin
          x1:=-b/(2*a);
          writeln('x = ', x1);
        end;
     1: begin
          x1:= -b - sqrt(d)/(2*a);
          x2:= -b + sqrt(d)/(2*a);
          writeln('x1 = ',x1,' x2 = ',x2);
        end;
    end;
end.