даны три квадратных уравнения. сколько из них имеют вещественные корни
1 уравнение ax^2+bx+c=0
2 уравнение bx^2+ax+c=0
3 уравнение cx^2+ax+b=0
объясните пожалуйста

var    a, b, c: real;    k := 0;begin    readln(a, b, c);    k := k + integer(b * b - 4 * a * c >= 0);    k := k + integer(a * a - 4 * b * c >= 0);    k := k + integer(a * a - 4 * c * b >= 0);    writeln(k);end.