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.