Вывод на экран кубов чисел от 13 до 4. var :integer; begin for m:= downto do writeln (m*m*m); readln; end.

я сама хз надеюсь

Использовать Чертежник
алг
нач
  М;А;Ш;А
кон

алг Ш
нач
  опустить перо
  сместиться на вектор(0,3)
  сместиться на вектор(0,-3)
  сместиться на вектор(1.5,0)
  сместиться на вектор(0,3)
  сместиться на вектор(0,-3)
  сместиться на вектор(1.5,0)
  сместиться на вектор(0,3)
  поднять перо
  сместиться на вектор(1,-3)
кон

алг М
нач
  опустить перо
  сместиться на вектор(0.75,3)
  сместиться на вектор(0.75,-3)
  сместиться на вектор(0.75,3)
  сместиться на вектор(0.75,-3)
  поднять перо
  сместиться на вектор(1,0)
кон

алг А
нач
  опустить перо
  сместиться на вектор(1,3)
  сместиться на вектор(1,-3)
  поднять перо
  сместиться на вектор(-1.5,1.5)
  опустить перо
  сместиться на вектор(1,0)
  поднять перо
  сместиться на вектор(1.5,-1.5)
кон

Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). 
Пример:
«=ОКРУГЛ(выражение);число)»

Дано:

Математическое выражение:
"(60+133)−2(74:(3+16))"

Найти:
ответ, и округлить его до сотых в MS Excel.

Формула (Её нужно вставить в окошко Excel и нажать "Enter"):
«=ОКРУГЛ((60+133)-2*(74/(3+16));2)»

ответ:
185,21

Далее скриншот, и файл Excel в котором формула и сам ответ.