Решение квадратного уравнения в общем виде по разветвляющей структуре программы

Var a,b,c,d : real; begin   write('введите коэффициенты a b c: '); readln(a,b,c);   d: =b*b-4*a*c;   if d< 0 then writeln('решений нет') else       case d=0 of       true : writeln('x1 и x2 = ',-b/(2*a): 8: 4);       false : writeln('x1 = '+sqrt(d))/(2*a): 8: 4,'  x2 = '-sqrt(d))/(2*a): 8: 4);     end; end.

Const   n = 5; var   a: array[1..n, 1..n] of integer;   i, j, m, nmax, nmin, jmax, jmin: integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       nmax : = -100;       nmin : = 100;       for j : = 1 to n do       begin           a[i, j] : = random(24) - 8;           if nmax < a[i, j] then           begin               nmax : = a[i, j];               jmax : = j           end;           if nmin > a[i, j] then           begin               nmin : = a[i, j];               jmin : = j           end;           write(a[i, j]: 4)       end;       writeln;       a[i, jmax] : = nmin;       a[i, jmin] : = nmax   end;   writeln(#13#10, 'результирующий массив');   for i : = 1 to n do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end end. тестовое решение: исходный массив   -4    8    3    7    5   -7  -7    1    8    0   14    0    0    1  -1   14    7  -5  -1  14     7    6    1  -6  14 результирующий массив     8  -4    3    7    5     8  -7    1  -7    0   -1    0    0    1  14   -5    7  14  -1  14     7    6    1  14  -6