équation ax+b=0

ÉNONCÉ
Ecrire un algorithme du programme intitulé DEGRE_1, qui résout dans R une équation du premier degré à une inconnue x réelle de la forme :
ax+b=0

PASCAL

program degre1;
uses wincrt;
var a,b,x:INTEGER;
begin
write('entrer la valeur de a:');
readln(a);
write('entrer la valeur de b:');
readln(b);
if a=0 then if b=0 then write('solution=R')
else write('la solution est le vide')
else write('solution=',-b/a)
end.