Даны вещественные числа a, b, c (a≠0). выяснить имеет ли уравнение ax^2+bx+c=0 вещественные корни. блок схема

В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=-i+random()+20;
 write(a[i]:5:2,' ');
 end;
writeln;
b:=true;
for i:=1 to n-1 do
 if a[i+1]>=a[i] then b:=false;
if b
 then 
  begin
  writeln('Последовательность убывающая');
  writeln('p = ',a[n]*a[n div 2+1]:5:2);
  end
 else writeln('Последовательность не убывающая')
end.

Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19  9.66  8.35  7.37  6.55  5.20 
Последовательность убывающая
p = 66.86

#include <iostream>

#include <vector>

using namespace std;

void solve(){

   int m,n;

   cin >> m >> n;

   vector<vector<int>> a(m,vector<int>(n));

   vector<bool> b(m, true);

   for(int i = 0; i < m; i++)

       for(int j = 0; j < n; j++)

           cin >> a[i][j];

   for(int i = 0; i < m; i++)

       for(int j = 1; j < n; j++)

           if(a[i][j] <= a[i][j-1])

               b[i] = false;

   for(auto i : b) cout << i << " ";

}

signed main(){

   solve();

}