program LinearEquation;

uses

 crt, Graph;

var

 a, b, x: real;

procedure SolveEquation;

begin

 if a = 0 then

   if b = 0 then

     writeln('Рівняння має безліч розв'язків')

   else

     writeln('Рівняння не має розв'язків')

 else

 begin

   x := -b / a;

   writeln('Корінь рівняння: ', x:0:2);

   readln;

 end;

end;

procedure ShowCongratulations;

var

 gd, gm: integer;

begin

 gd := detect;

 initgraph(gd, gm, '');

 settextstyle(defaultfont, horizdir, 4);

 outtextxy(getmaxx div 2 - 200, getmaxy div 2 - 50, 'Вітаємо!');

 settextstyle(defaultfont, horizdir, 2);

 outtextxy(getmaxx div 2 - 120, getmaxy div 2 + 50, 'Ви розв'язали рівняння!');

 delay(5000);

 closegraph;

end;

begin

 writeln('Введіть коефіцієнт a:');

 readln(a);

 writeln('Введіть коефіцієнт b:');

 readln(b);

 SolveEquation;

 ShowCongratulations;

end.