X=-b+(b) в квадрате -4ab: 2a нужно решить в pascalabc.net нужно это информатика 8 класс

Var a, b, x : real; Begin Write('Введите а: '); Readln(a); Write('Введите b: '); Readln(b); X := -b + b * b - 4 * a * b / 2 * a; Write('x = ', x : 0 : 2); Readln; End.