Составить алгоритм и программу квадратного уравнения, вариант d=0 не учитывать. a, b, c-вводится с клавиатуры. если > 0 вычислить корни , если меньше вывести на экран. нет корней. программа на языке паскаль.

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

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

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

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

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

writeln ('d=', d);

if d>0 then

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

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

Writeln (' x1=', x1);

Writeln(' x2=', x2);

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