\documentclass[varwidth=true, border=2pt]{standalone}
\usepackage{tkz-euclide}
\usepackage{tikz}
\usetikzlibrary{patterns}

\begin{document}
\usetkzobj{all}
\begin{tikzpicture}
    \tkzSetUpPoint[shape=circle,size=10,color=black,fill=black]
    \tkzSetUpLine[line width=1]
    \tkzDefPoints{0/0/A, 4/0/B, 4/2/C, 0/2/D}
    \tkzDrawPolygon(A,B,C,D)
    \tkzDrawPolygon[pattern=north east lines](A,B,C)
    \tkzDrawPolygon[pattern=north west lines](C,D,A)
    \tkzDrawPoints(A,B,C,D)
\end{tikzpicture}
\end{document}