, сама уже не вывожу. Нужно дописать программу в Pascal модуль Graph ABC так, что-то было похоже на рисунок. (Начло):
uses graphABC;
var x,y:integer;
begin
SetBrushColor(clAzure);
Rectangle(0,291,640,0);
SetBrushColor(clYellowGreen);
Rectangle(0,435,640,291);
SetBrushColor(clBisque);
Ellipse(200,210,490,360);
Circle(198,225,84);
Circle(480,249,24);
SetBrushColor(clSnow);
Circle(147,220,24);
Circle(220,221,24);
SetBrushColor(clBlack);
Circle(215,223,18);
Circle(143,223,18);
SetBrushColor(clSnow);
Circle(223,221,6);
Circle(151,223,6);

Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.