Составить алгоритм и программуквадратного уравнения,вариант D=0 не учитывать.A, B, C-вводится с клавиатуры.Если >0 вычислить корни , если меньше вывести на экран.Нет корней. Программана языкепаскаль.

Program korni;

var a,b,c,d,x1,x2: real;

Begin

Writeln ('Введите значение a',a);

Readln (a);

Writeln ('Введите значение b',b);

Readln (b);

Writeln ('Введите значение c',c);

Readln (c);

d:=sqr(b)-4*a*c;

writeln ('d=', d);

if d>0then

begin

x1:=(-b+sqrt(d))/2*a;

x2:=(-b-sqrt(d))/2*a;

Writeln (' x1=', x1);

Writeln(' x2=', x2);

end;

if d<0thenwriteln('Нет корней');

end.