писал на 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.