Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения A∙x2 + B∙x + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D = B2 - 4∙A∙С.

Function RootsCount(a,b,c:real):integer;var d:real;begind:=b*b-4*a*c;if d>0 then RootsCount:=2 else if d=0 then RootsCount:=1  else RootsCount:=0;end;var a,b,c:real; i:integer;beginfor i:=1 to 3 do begin writeln(i,') a,b,c:'); readln(a,b,c); writeln('Количество корней = ',RootsCount(a,b,c)); end;end.Пример:1) a,b,c:1 2 3Количество корней = 02) a,b,c:-4 5 6Количество корней = 23) a,b,c:-2 8 -8Количество корней = 1