Алгоритм в Чертежнике - PascalABC.NET

Формулировка задачи:

Здравствуйте, возникло затруднение с алгоритмом в исполнителе Чертежник. В общем, думаю что алгоритм таков:

                    Листинг программы
                
 
                        
                          
                    
 uses Drawman;
var
count:integer;
begin
  Task('c13');
  count:=2;
  topoint(2,2);
  for var i:=0 to 6 do
  for var j:=3 to 8 do
  begin
  count+=i;
  pendown;
  onvector(count,j);
  end;
  end;
end.

Но в результате получается непонятно что. Помогите разобраться, пожалуйста

Решение задачи: «Алгоритм в Чертежнике»

Листинг программы

uses DrawMan;
var i,count:integer;
begin
task ( 'c13' );
topoint (2,2);
 for i:=1 to 6 do
 begin
 pendown;
 onvector ( 0 , i );
 onvector ( i, -i );
 end;
 penup;
 topoint (0,0);
end.

Объяснение кода листинга программы

Список действий в коде:

Используется пространство имен DrawMan.
Объявляются две переменные: i и count типа integer.
Задается задача с названием 'c13'.
Устанавливается начальная точка для рисования - (2,2).
В цикле от 1 до 6 выполняются следующие действия:
1. Устанавливается текущая точка для рисования.
2. Рисование отрезка по вектору (0,i), где i принимает значения от 1 до 6.
3. Рисование отрезка по вектору (i,-i), где i принимает значения от 1 до 6.
Устанавливается конечная точка для рисования.
Устанавливается начальная точка для рисования. Список действий в коде представлен в виде цикла, который выполняет 6 итераций. В каждой итерации рисуется отрезок по двум векторам. Таким образом, в результате выполнения кода будет нарисовано 6 отрезков.