Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 3 раза
Сместиться на (-2, -1)
Команда 1
Сместиться на (2, 1)

У вас есть число 137
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1) 
68   / 2 = 34 выписываем остаток (0)
34   / 2 = 17 выписываем остаток (0)
17   / 2 = 8   выписываем остаток (1)
8     / 2 = 4   выписываем остаток (0)
4     / 2 = 2   выписываем остаток (0)
2     / 2 = 1  <==   на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001

1) предусловие

program w;

var x,y: real;

begin

x:=1;

while x<=2 do

begin

y:=10*x/3;

writeln ('x = ',x:3,'   y = ',y:0:3);  

x:=x+0.2

end

end.

2) постусловие

program r;

var x,y: real;

begin

x:=1;

repeat

y:=10*x/3;

writeln ('x = ',x:3,'   y = ',y:0:3);  

x:=x+0.2

until x>2

end.

Объяснение:

1) предусловие

задаем начальное значение х

Цикл:

проверяем условие

считаем у

выводим значения х и у на экран

изменяем х на шаг

2) постусловие

задаем начальное значение х

Цикл:

считаем у

выводим значения х и у на экран

изменяем х на шаг

проверяем условие