Решение квадратного уравнения - Turbo Pascal (42522)

Формулировка задачи:

Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение

кто нибудь знает как написать эту программу ?

Решение задачи: «Решение квадратного уравнения»

textual
                            Листинг программы 
                        

                            program kv_ur;
var
a,b,c,x1,x2,x,d:real;
begin
writeln('Введите значение при х в квадрате');
readln(a);
writeln('Введите значение при х');
readln(b);
writeln('Введите значение при третем числе');
readln(c);
if b=0 then writeln('Число при х равно нулю') else
begin
d:=sqr(b)-4*a*c;
if d=0 then begin x:=-b/2*a; writeln('x=',x);end else
begin
if d>0 then 
begin 
x1:=(-b+sqrt(sqr(b)-4*a*c))/2*a;
x2:=(-b-sqrt(sqr(b)-4*a*c))/2*a;
writeln('x1=',x1,' x2=',x2);
end
else
writeln('Корней нету');
end;
end;
end.
                        