Посадка на Луну

[spamsink]

Наконец-то, можно нормально играть в посадку на Луну: https://github.com/besm6/bega-re/blob/master/landing.pas
https://github.com/besm6/bega-re/blob/master/landing.sh

Дело было в том, что по умолчанию вывод на экран в Паскаль-автокоде делается через Пульт, который всё печатает в сокращенном наборе символов для телетайпа (например, ! превращается в .I), и принудительно делая перевод строки после 72 символов. "Посадка" пыталась это обойти с помощью выдачи экстракода вывода на экран, указывая предполагаемый адрес буфера файла output, но почему-то в нашем случае это не работало.

Я эти мелочи проигнорировал. Теперь с помощью этой программы можно давать задачки по физмату и программированию:

1) Покажите, что на уровне 0 (15000 фунтов топлива) сесть невозможно.
2а) Напишите программу, за короткое время находящую последовательность действий, приводящих к мягкой посадке на уровне 1 (15500 фунтов топлива).
2б) Максимизируйте количество оставшегося при посадке топлива.