Построить таблицу истинности с указанием алгоритма:
(avb)& (a-vb)
p.s: минус с сверху a​

Program znanija;
var A:array[1..20] of integer;   
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое ) 

for i:=1 to 20 do  A[i]:=random(9); // заполняем массив 

for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;  

for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив 

writeln();  // просто перевод на новую строку для красоты 

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

1 Program work1;

2 uses crt;  

3 var x,y,z: real;  

4 begin  

5 clrscr ;

6 writeln('введите число x');  

7 readln(x);  

8 writeln('введите  число y');  

9 readln(y);  

10 writeln('введите число z');  

11 readln(z);  

12 if (x<=3) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');

13 if (y<=3) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');

14 if (z<=3) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln  ('z не принадлежит и интервалу');  

15 readln;

Объяснение:

https://ru-static.z-dn.net/files/dd2/796d7c2d2af92262840bd7209eb7f670.bmp картинка