Информатика повороты урок 2 задание номер 6​

вот.....................

Var a, b, c, d, x1, x2, t: real; begin        writeln('программа для решения неравенства ax^2 + bx + c > 0');         write('введите коэффициенты a, b, c: ');         readln(a, b, c);         if a = 0 then begin          if b = 0 then           begin                       if c > 0 then writeln('(-∞; +∞)')                                            else writeln('ø')                 end                 else if b > 0 then writeln('(', -c / b : 0 : 3, '; +∞)')                                          else writeln('(-∞; ', -c / b, ')')        end        else        begin              d : = b * b - 4 * a * c;               if d = 0 then           begin                    x1 : = -b / (2 * a);                     if a > 0 then writeln('(-∞; ', x1, ') u (', x1, '; +∞)')                                        else writeln('ø')              end              else if d > 0 then              begin                    x1 : = (-b - sqrt(d)) / (2 * a);                     x2 : = (-b + sqrt(d)) / (2 * a);                     if x1 > x2 then                    begin                          t : = x1;                           x1 : = x2;                           x2 : = t                    end;                     if a > 0 then writeln('(-∞; ', x1, ') u (', x2, '; +∞)')                                        else writeln('(', x1, '; ', x2, ')')              end              else              begin                    if a > 0 then writeln('(-∞; +∞)')                                        else writeln('ø')              end        end end.