Напишите программу в turbo pascal: найти корни квадратного уравнения ax^2+bx+c

Var a,b,c,d,x,x1,x2: real; begin readln(a.b.c); d: =sqr(b) - 4*a*c; if d< 0 then write('нет корней') else  if d=0 then begin x: =-b/(2*a); write(x); end else begin x1: =(-b+sqrt(d)/(2*a); x2: =(-b-sqrt(d))/(2*a); write(x1,x2); end; readln end.

программа, которая сравнивает первые 3 со вторыми 3мя ниже, но я не понял к чему было упоминание корня в первоначальном

program bilet; var

a,b,c: longint; i: byte; beginwriteln('vvrdite nomer'); readln(a); b: =0; c: =0; for i: =1 to 6 do      if i< 4 then begin            b: =b+(a mod 10);             a: =a div 10;             end      else begin                c: =c+(a mod 10);                 a: =a div 10;       end; if b=c then writeln('schastlivuy ',c,' = ',b)else writeln('uvyu ',c,' < > ',b); readln; end.

Ну вот.надеюсь,что  я ответила графічний онлайн-редактор. безкоштовний інструмент для графічного дизайну. пошук світових наукових журналів. безкоштовний курс з програмування з нуля.  працює прямо в браузері. автоматизована система перевірки рішень з програмування. безкоштовні онлайн-тренінги для освітян.  майстерня марини курвітс. веб-додаток для роботи з зображеннями. портал психологічних видань. інноваційний освітній проект з онлайн-навчання. портал адміністративних послуг. дистанційне навчання інформатики. liqpay, найпростіші платежі для вашого сайту або додатку! "шкільні проекти". видавництво педагогічної преси та літератури "шкільний світ". журнал "фізико- освіта". go pollock це помічник вчителя, що збагачує ваш урок миттєвою візуалізацією рівня розуміння та прогресу усього класу в живому часі. бібліометрика української науки. рейтинг наукових колективів.