Помогите 8 класс програмированние таблицы : 1.У и не x или не У 2.не Y и не x или Y

     X     Y     V  True  True False  True False  True False  True  True False False  True     X     Y     V  True  True  True  True False False False  True  True False False  Truevar x,y,v: boolean;beginwrite('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= y and (not x)or (not y);writeln(x:6,y:6,v:6);end;end;writeln;writeln;writeln;write('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= (not y) and (not x)or y;writeln(x:6,y:6,v:6);end;end;end.