Сначала надо перевести все эти числа из восьмеричной системы в двоичную.
Каждая восьмеричная цифра даёт три двоичные.
Переводить можно по таблице, где проставлены восьмеричные числа от нуля до семи и соответствующие им двоичные.
После, надо все полученные двоичные числа записать одно под другим на бумаге в клеточку- чтобы каждая цифра была в отдельной клеточке.
И, закрасить клетки, в которых оказались единицы.
Должен получиться рисунок.
Я всё это сделал в таблице Excel (смотри скрин внизу), саму таблицу тоже там можно скачать.
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end<span>.</span>