Question

Составить алгоритм и написать программу.
Найдите дискриминант квадратного уравнения: y=5x^2+6x-7

Answer 1

var
  D, a, b, c :real;
 
begin

  readln(a,b,c);
  D:= sqr(b) - 4*a*c;
  writeln(D);

end.