квадрат рисуется процедурой Rectangle(x1,y1,x2,y2); , где x1,y1 - отвечает за левый верхний угол, а x2,y2 - за правый нижний.
