Запишите команды для построения изображения произвольного: а) квадрата, б) прямоугольника

procedure DrawRectangle(x1,y1,x2,y2: integer);  

       Рисует границу прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

От указания переменных зависит что у тебя будет прямоугольник или квадрат