GNU Pascal

Program f; Var a,b,c,x1,x2,x3,s: Real; Begin Writeln('donner moi les variables'); Readln(a,b,c); s := b*b-(4*a*c); x1 := (-b-Sqrt(s))/2*a; x2 := (-b+Sqrt(s))/2*a; x3 := (-b/2*a); If s<0 Then Write ('non solutions') ; If s>0 Then Write('la solution est',x1,x2); If s=0 Then Write('la solution est',x3); End.