program tp2;
uses wincrt;
var
i:integer;
a,b:real;
j:char;
{-----------------------Procedure de resolution ax+b=0---------------}
procedure equation(a,b:real) ;
          var
          sol:real;

          begin
          

          if (a<>0) then
          begin        
          sol:=-(b/a) ;
          writeln('la solution est :',sol);
          end
            
          else
          begin
          writeln('a doit etre different de 0');   
          end;
          end;
{-----------------------Programme principal--------------------------}
begin
i:=1;
{-----------------------Boucle pour resoudre 10 equation---------------}
repeat
writeln('Equation n° : ',i);

writeln('Donnez 2 nombre a et b :');

readln(a,b);

equation(a,b);

i:=i+1;

writeln('Voulez vous continuez :? y/n ');

readln(j);

until (j='n') ;

writeln('Good bye....');

end.