Нарисовать квадрат используя procedure LineTo. (Паскаль)

Question

Нарисовать квадрат используя procedure LineTo. (Паскаль)

Comments

easy

---

easy easy

---

бери четыре точки чтобы x1=x2 y1=y3 x3=x4 y2=y4

Answer 1

Program B;
uses graphABC;
begin
LineTo(400, 0);
LineTo(400,400);
LineTo(0,400);
LineTo(0,0);
end.

Comments

Спасибо! А как сделать, чтобы он был ну типа как по-середине? а не приплюснутый к левому краю? ну какие значения использовать нужно? а то я его смог отодвинуть, а верхняя линия вываливается (квадрата).