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

Немного теории:
Для квадратного уравнения вида а•х² + 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