Нужно переделать программу в Pascal по заданию(смотрите картинки)

var a,b:0..1;beginwriteln('   A     B    not A  A and B  A or B A xor B');for a:=0 to 1 do for b:=0 to 1 do  writeln((a=1):6,(b=1):6,(not(a=1)):7,(a=1)and(b=1):8,(a=1)or(b=1):8,(a=1)xor(b=1):8);end.Результат:   A     B    not A  A and B  A or B A xor B False False   True   False   False   False False  True   True   False    True    True  True False  False   False    True    True  True  True  False    True    True   False