Составьте блок схему и дано для программы uses crt; var

Составьте блок схему и дано для программки
uses crt;
var
a,b,c,d,x1,x2: real;
begin
Вводим значения a, b и c
clrscr;
write('Wwedite A: ');
readln(a);
write('Wwedite B: ');
readln(b);
write('Wwedite C: ');
readln(c);
Вычисляем дискриминант
d:= b*b - 4*a*c;
Если дискриминант больше 0, то вычисляем корешки и выводим на экран
if d gt; 0 then
begin
x1:= (b - sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
writeln('x1 = ',x1:0:4);
writeln('x2 = ',x2:0:4);
end;
Если дискриминант равен 0, то вычисляем один корень и выводим на экран
if d = 0 then
begin
x1:= -(b/(2*a));
writeln('Koren = ',x1:0:4);
end;
Если дискриминант меньше 0, то выводим известье
if d lt; 0 then
begin
writeln('Korney net');
end;
readln;
end.