По логической схеме составить таблицу истинности

Program Diagonal;
uses Crt;
const n = 5;
Type Mas = array [1..n, 1..n] of integer;
       Vec = array [1..n*n] of integer;
var A: Mas;
     V: Vec;
     i, j , k: integer;
     p : longint;
begin
 ClrScr;
 Randomize;
 p:=1;
 WriteLn('Massiv A:');
 for i:=1 to n do
   begin
      for j:= 1 to n do
         begin
           A[i, j]:= 1+random (9);
           p:=p*A[i,i];
           Write(A[i, j]:4);
         end;
   WriteLn; WriteLn;
   end;
k:=0;
for i:=1 to n do
  for j:=1 to n do
      begin
        if (A[i,j]>p) and (j<i) then
          begin
            k:=k+1;
           V[k]:=A[i, j];
          end;
      end;
  WriteLn('Vector V=');
  for j:=1 to k do
     Write(V[j]:4);

  WriteLn;
  if k=0 then Writeln ('None');
ReadLn;
end.

#include <stdio.h>
#include <math.h>

int isPrime(int x)
{
for (int i = 2; i <= sqrt(x); i++) {
if (x % i == 0) return 0;
}
return 1;
}

int main()
{

/* Ввод значений */
int n;
scanf("%d", &n);
int nums[n];
for (int i = 0; i < n; i++) {
scanf("%d", &nums[i]);
}

/* Поиск минимального значения */
int min = nums[0];
for (int i = 1; i < n; i++) {
if (nums[i] < min) min = nums[i];
}

/* Поиск делителя */
int ret = 0;
int isDiv = 1;
for (int i = min; i > 1; i--) {
printf("test %d\n", i);
if (isPrime(i)) {
printf(" %d prime\n", i);
for (int j = 0; j < n; j++) {
if (nums[j] % i != 0) {
printf(" on pos %d not div %d\n", j, i);
isDiv = 0;
break;
}
}
if (isDiv) {
ret = i;
printf(" ret = %d, break\n", ret);
break;
}
else {
isDiv = 1;
}
}
}

printf("%d", ret);
return 0;
}