Информатика.построить таблицу истинности для следующего логического выражения a& b v ¬a& b

Program zadacgha; var  a,b,n,w: integer;         x: real;         begin                 readln(a);                 readln(b);                 x: =3.56*(a+b*(a+.8*b*b-1.5;                   writeln(x: 5: 5);                   readln(n);                   for w: =1 to n do                           a: =a*w+a;                   writeln(a);           end.

1. var    a, s, cifra: integer; begin   s: = 0;   writeln('введите натуральное число');   readln(a);   while a > 0 do   begin     cifra: = a mod 10;   //определяем очередную цифру числа     s: = s + cifra * cifra * cifra;   //прибавляем к значению s цифру в кубе     a: = a div 10;   //целочисленное деление числа на 10 (отсекаем текущую цифру)   end;   writeln('сумма кубов цифр числа:   ', s); end. 2. var   a: integer; begin   writeln('введите натуральное число');   readln(a);   while a > 9 do   {определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. полученное число и будет первой цифрой}     a: = a div 10;   writeln('первая цифра числа:   ', a); end.