Составьте блок схему и дано для программы
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 > 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 < 0 then
begin
writeln('Korney net');
end;
readln;
end.