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

Var 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.