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

varx,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.