помогите с языком программирования (if case)

Question

ввели с клавиатуры коэфиценты квадратного уравнения . Решить и выдать результаты на экран.

язык Pascal

Ирина Белова · Accepted Answer

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