Решить в паскале. Даны уравнения 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.