2) решение квадратного уравнения ax^2+bx+c= 0 при любых значениях коэффициентов а, b, c. коэффициенты уравнения вводятся с клавиатуры, решения выводятся на экран

Искренне надеюсь, что вы сможете перевести этот код к нужному виду..: ) в принципе, расхождения должны быть только в вводе/выводе (где console.бла-бла-бла) и генерации случайных чисел) sub main()         dim a(29), sum, col as integer         dim rnd = new random()         for i as integer = 0 to 29             a(i) = rnd.next(-100, 100)             console.write("{0} => {1}" + environment.newline, i, a(i))             if (i > 0) then                 if (a(i) mod a(0)) then                     sum = sum + a(i)                     col = col + 1                 end if             end if         next         console.writeline(math.round(sum / col, 2))         console.readkey()     end sub

Var a: array [1..10] of integer;     i, min, sum: integer; begin       for i : = 1 to 10 do       begin           a[i] : = random(50);           writeln('[', i, '] => ', a[i]);       end;             min : = a[1];       for i : = 2 to 10 do           if (min > a[i]) then min : = a[i];       i : = 1;       while ((i < = 10) and (a[i] < > min)) do       begin             sum : = sum + a[i];             inc(i);       end;       writeln(sum); end.