Составьте программу на языке паскаль для решения квадратного уравнения с разветлением

uses graphABC;

Begin

Setbrushstyle(bsClear);

SetPenWidth(13);

SetPenColor(clBlue);

Circle (140,200,100);

SetPenColor(clBlack);

Circle (320,200,100);

SetPenColor(clRed);

Circle (500,200,100);

SetPenColor(clYellow);

Circle (240,315,100);

SetPenColor(clGreen);

Circle (420,315,100);

SetPenColor(clBlue);

Arc(140,200,100,-17,90);

SetPenColor(clBlack);

Arc(320,200,100,180,200);

SetPenColor(clBlack);

Arc(320,200,100,-15,90);

SetPenColor(clRed);

Arc(500,200,100,180,270);

SetPenColor(clYellow);

Arc (240,315,100,0,45)

end.

Объяснение:

картинка

ЭЕМ-дегі бағдарламалау процесін жүргізуге көмектесетін негізгі бағдарламалық жабдықтаманың бір бөлігі. Бағдармалау жүйесінің құрамына: ЭЕМ-ге бағдарлама құрып, компьютерге ендіретін редактор; ендіру тіліндегі бағдарламаны тікелей орындайтын интерпретатор; бағдарламаны ЭЕМ-ге ендіру тілінен машиналық тілге аударатын транслятор немесе компилятор; бағдарламаны тексеріп, жөндейтін үйлестіргіш транслятордың жұмыс процесі кезіндегі бас бағдарламаға біріктірілетін қосалқы (көмекші) бағдарламалары бар трансляция кезеңінің кітапханасы ЭЕМ-нің сыртқы жадында сақталынып тұратын бағдарламалар немесе алгоритмдер жиынтығы.