Составить программу решающую A*X^2+B=C

Program Program1; VarA,B,C,X: real; beginrandomize; writeln ('Веедите значение A: '); readln (A); writeln ('Веедите значение B: '); readln (B); writeln ('Веедите значение C: '); readln (C); X: =SQRT (C-B) /A); writeln; writeln ('X=',X: 0:4); end.