3 вариант.Решите пожалуйста

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (B, C) := (0.24, 0.14);

 for var i := 0 to 10 do

 begin

   var T := 0.1 * i;

   var A := T gt; 0.2 ? T : -T;

   var s := 'A=A,4:f1, B=B,4:f2, C=C,4:f2';

   var D := B * B - 4 * A * C;

   if (A = 0) or (D lt; 0) then s += ' Решения нет'

   else

     if D = 0 then s += ' x=-B/A/A,20:f17'

     else s += ' x1=(-B-Sqrt(D))/A/A,20:f17, x2=(-B+Sqrt(D))/A/A,20:f17';

   s.Println

 end

end.