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

Var a,b:0..1; begin writeln('   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