Нужно три для исполнителя чертежник. (6 класс) ну чтобы слишком трудно не было.

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)
кон