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

Блок-схема во вложении

Const       n = 20; var       i, imax, j, x: integer;       a: array[1..n]of integer; begin       for i : = 1 to n do               a[i] : = random(100);       for i : = 1 to n - 1 do       begin               imax : = i;               for j : = i + 1 to n do                       if a[j] > a[imax] then                               imax : = j;               x : = a[i];               a[i] : = a[imax];               a[imax] : = x;       end;             for i : = 1 to n do           write(a[i],' ');                 writeln();       writeln(imax);       end.

Const       n = 30; var       i: integer;       a, d: array[1..n]of integer; begin       for i : = 1 to n do       begin               d[i] : = random(100);               if i < = 10 then                       a[i] : = d[i] + i               else                       a[i] : = d[i] - i;               write(d[i]: 4, ' ');       end;             writeln();       for i : = 1 to n do               write(a[i]: 4, ' '); end.