Pascal Вычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)

var x,y,z:real; function d(a,b,c:real):real;    begin        readln(a,b,c);        d:=sqr(b)-4*a*c;    end; begin    writeln(d(x,y,z)) end.