Составьте блок-схему алгоритма поиска корней квадратного уравнения ax2+bx+c=0

PROGRAM KORNI; uses crt; var a,b,c,D:integer; X1,X2 :real; begin Writeln ('Введите a,b и c'); read (a); read (b); read (c); begin D:= sqrt (b)-4*a*c; If D<0 then writeln('Корней нет'); end; X1:=-b+SQRT(D)/(2*a); X2:=-b-SQRT(D)/(2*a); Writeln('D=', D); Writeln('X1=',X1:4:2); Writeln('X2=',X2:4:2); end.