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