Составить программку Как найти дискриминант квадратного уравнения

Немножко теории:
Для квадратного уравнения вида ах + bх + с = 0, где а, b, с коэффициенты. Дискриминант D = b 4ас.

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,b,c, d:real;
begin
  readln(a,b,c);
  d:=sqr(b)-4*a*c;
  println('Дискриминант',d);
end.

Тестовое решение:
1 2 -3
Дискриминант 16