Построить таблицу истинности

На языке C++ будет так:

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

   int a,b,c;

   double D, x1, x2;

   cout<<"Введите a"<<endl;

   cin >>a;

   cout<<"Введите b"<<endl;

   cin >>b;

   cout<<"Введите c"<<endl;

   cin >>c;

   if (a == 0){

       cout<<"Коэффициент a не может быть равен 0"<<endl;

       return 0;

   }

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

   if (D >= 0){

       if (D == 0){

           x1 = -(double)b /(2*a);

           cout<<"x = "<<x1<<endl;

       }

       else{

           x1 = (-b + sqrt(D)) / (2*a);

           x2 = (-b - sqrt(D)) / (2*a);

           cout<<"x1 = "<<x1<<endl;

           cout<<"x2 = "<<x2<<endl;

       }

   }

   else{

       cout<<"Корней нет. D = "<<D<<endl;

   }

   return 0;

}

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.