Писал на PascalABC
задание 1
var a, b, c, d, x1, x2: real;
begin
randomize();
a := random();
b := random();
c := random();
d := sqr(b) + 4 * a * c;
if d > 0 then begin
x1 := ((-b) - sqrt(d)) / (2 * a);
x2 := ((-b) + sqrt(d)) / (2 * a);
writeln('первый корень: ', x1);
writeln('второй корень: ', x2);
end;
if d = 0 then writeln('корень: ', (-b) / (2 * a));
if d < 0 then writeln('нет корней');
end.