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

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

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end

var a: array[1..15] of char;

i,min,max: integer;

begin

  min=1;

  max=1;

  for i: = 1 to 15 do begin

      a[i]: = chr(random(256));

      if a[min]> a[i] then min: =i;

      if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

 

end.