Решить в паскале .даны уравнения ax+b=0 и cx^2+dx+f=0 проверить является s решением двух этих уравнений .

Var
S,a,b,c,d,f:real;
Begin
Write('S = ');ReadLn(S);
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
Write('d = ');ReadLn(d);
Write('f = ');ReadLn(f);
if (A*S=-B)and(C*S*S+D*S=-F) then Write(S,' - решение системы уравнений')
else Write(S,' НЕ является решением системы уравнений')
End.