Нужно нарисовать домик в программе кумир, с чертёжника просто напишите алгоритм

Сместиться в точку (1, 4)  опустить перо сместиться в точку (1, 1) сместиться в точку (5, 1) сместиться в точку (5, 4) сместиться в точку (1, 4) сместиться в точку (3, 6) сместиться в точку (5, 4) поднять перо сместиться в точку (2, 2) опустить перо сместиться в точку (2,  3) сместиться в точку (4, 3) сместиться в точку (4, 2) сместиться в точку (2, 2)

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

 

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.