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

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.