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

Program kv;varx1,x2,x,d,a,b,c:real;beginwriteln('Квадратное уравнение должно выглядеть так: 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) thenbeginx1:=(-b+sqrt(d))/2*a;x2:=(-b-sqrt(d))/2*a;writeln('X1= ',x1:8:3,' X2= ',x2:8:3);end;if (d<0) thenbeginwriteln('Нет корней');endelsex:=x2;x2:=-b/2*a;writeln('X= ',x2);end.