Построить две таблицы истинности . в первом примере линия над скобкой, во втором примере линия над первой буквой с . а ∧ (а ∧ в ∧ с) с▼(а▼в▼с)

program symma; var     k, i, s: integer; begin

    s: =0;         i: =1;     k: =0;     while k< =5  do         begin      if i mod 2=0 then        begin                                        s: =s+a;                                         k: =k+1;                                       end;           i: =i+1;   end;     writeln('s=',s);

end.

Var       i, k, n: integer; begin       k : = 0;             for i : = 1 to 10 do       begin               write('введите число');               readln(n);               if n < 0 then k : = k + 1;       end;             writeln(k); end. понимаю так - вводится 10 чисел, посчитать сколько из них отрицательные