[pascal] Solution d'un exercice

Bonjour,

je cherche la solution de la problème suivant

traduire l'algorithme suivant en langage pascal:

algorithme premier_degré;
variables a,b,x:réel;
début
lire(a,b);
si (a=0) et (b=0) alors
écrire('la solution est R')
sinon
si (a<>0) alors
x=-b/a
écrire(x)
sinon
écrire('pas de solution')
finsi
finsi
fin.

merci.