помогите написать программу в паскале под эту формулу

Program Abc;  Var a,b,c : real;Begin  WriteLn('Введите а, b, c');  ReadLn(a,b,c);  WriteLn('Ответ: ',(b+sqrt(sqr(b)+4*a*c))/2*a-a*a*a*c+1/sqr(b));End.