Напишите на паскале, си или в виде блок-схемы алгоритм, определяющий кол-во различных корней в обобщенном квадратном уравнении. на вход алгоритму коэффициенты a,b,c, на выходе нужно вывести кол-во различных корней.

Var
A,B,C:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
Write('C = ');
ReadLn(C);
A:=B*B-4*A*C;
if A = 0 then WriteLn(1)
else WriteLn(2)
End.