Скласти інформаційну модель розв'язування квадратного рівняння? дуже треба.іть хто знає як робити.буду вдячна

Program kv;
varx1,x2,x,d,a,b,c:real;
begin
writeln('Квадратное уравнение должно выглядеть так: ax^2+bx+c');
writeln('Write a');
readln(a);
writeln('Write b');
readln(b);
writeln('Write c');
readln(c);
d:=sqr(b)-4*a*c;
if (d>0) then
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('X1= ',x1:8:3,' X2= ',x2:8:3);
end;
if (d<0) then
begin
writeln('Нет корней');
end
else
x:=x2;
x2:=-b/2*a;
writeln('X= ',x2);
end.