Program sergo;
uses Drawman;
begin
Task('a1');
ToPoint(2,3);
PenDown;
ToPoint(3,5);
PenUp;
ToPoint(0,0);
end.
алг квадрат1
нач
. сместиться в точку(2,1)
. опустить перо
. сместиться в точку(2,4)
. сместиться в точку(5,4)
. сместиться в точку(5,1)
. сместиться в точку(2,1)
. поднять перо
. сместиться в точку(0,0)
кон использовать Чертежник
алг квадрат2
нач
. сместиться на вектор(2,1)
. опустить перо
. сместиться на вектор(0,3)
. сместиться на вектор(3,0)
. сместиться на вектор(0,-3)
. сместиться на вектор(-3,0)
. поднять перо
. сместиться на вектор(-2,-1)
кон