Постройте таблицы истинности для следующих логических высказываний​

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(4,8,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var sa:=a.Rows.SelectMany(x->x);
  Writeln('Положительные элементы:');
  sa.Where(x->x>0).Println;
  Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));
end.

Пример
*** Исходная матрица ***
  80   9  -8  32  37  75  43 -72
  71 -79  94 -20 -64 -37 -98  53
  19  84 -63  -4  17   5  38 -86
 -32  56  87 -43  28 -40 -35  24

Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98

1)
#include <stdio.h>
 
int main() {
 int a = -1;
 while(a != 0)
    scanf("%d", &a);
}
2)
#include <stdio.h>
#include <math.h>
 
int main() {
 int a;
 scanf("%d", &a);
 int prime = 1;
 for(int i = 2; i <= sqrt(a)+1; i++)
    if(a%i == 0) {
      prime = 0;
      break;
    } if((prime == 0 && a != 2) || a == 1) printf("NO\n");
 else printf("YES\n");
}
3)
#include <stdio.h>

int main() {
 int a[5];
 for(int i = 0; i < 5; i++)
   scanf("%d", &a[i]);
 for(int i = 0; i < 5; i++)
   printf("%d ", a[i]);
 printf("\n");
}