WordPad – это программа для редактирования текста, которую можно использовать для создания и редактирования документов. В отличие от документов программы «Блокнот», документы WordPadмогут включать сложное форматирование и графику, можно связывать или внедрять в документ объекты, например изображения или другие документы.

Создание, открытие и сохранение документов в WordPad
Для создания, открытия и сохранения документов в редакторе WordPad используйте команды представленные ниже.
Чтобы...Выполните следующие действия...
Создать новый документ
Нажмите  и выберите команду Создать
Открыть документ
Нажмите  и выберите командуОткрыть
Сохранить документ
Нажмите  и выберите командуСохранить
Сохранить документ с новым именем или в другом формате
Нажмите  и выберите командуСохранить как, а потом выберите имя и формат, в котором необходимо сохранить документ
Примечание: WordPad можно использовать для открытия и сохранения текстовых документов (.Txt), документов в формате RTF (.Rtf), документов Word (.Docx) и текстовых документов OpenDocument (.Odt). Документы в других форматах открываются как текстовые документы и могут выглядеть неправильно.
В фигурных скобках добавил комментарии
{определяем процедуру вправо-вверх}
ПРОЦ вправо_вверх
ПОКА сверху свободно И справа свободно ДЕЛАТЬ
вправо; вверх; закрасить;
КОНЕЦ
{определяем процедуру вправо-вниз}
ПРОЦ вправо_вниз
ПОКА снизу свободно И справа свободно ДЕЛАТЬ
вправо; вниз; закрасить;
КОНЕЦ
ПРОГРАММА зигзаг;
{перемещаем Робота в левый нижний угол}
ПОКА слева свободно ДЕЛАТЬ
влево
КОНЕЦ
ПОКА снизу свободно ДЕЛАТЬ
вниз
КОНЕЦ
{закрашиваем первую клетку}
закрасить;
{двигаемся, пока не упрёмся в правую стенку}
ЕСЛИ справа свободно ТО
вправо_вверх;
вправо_вниз
КОНЕЦ
Сетунь оперировала троичной симметричной системой (знаки "-", "0", "+"), а не обычной ("0", "1", "2"). Но задание хорошее.
По порядку от a) до o):
0, 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010, 1011, 1100, 1101, 1110.
Числа вообще по порядку там идут от 0 до 15.
Упрощения выражений показаны в прилагаемом файле.
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.