1(ну если кто хочет может с другими тоже) всё в фотографии.

PascalABC.NET

begin

 var(a,b,c) := ReadReal3;

 var D := b*b-4*a*c;

 if D<0 then

   Print('Нет действительных корней')

 else if D=0 then

   Print('x1, x2 =', -b/2/a)

 else

 begin

   D :=Sqrt(D);

   Print('x1 =', (-b -d)/(2*a),

       '  x2 =', (-b +d)/(2*a))

 end;

end.