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

Question

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

Answer 1

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.