Если правильно понял, то:
var a, b: integer;
begin
readln(a, b);
writeln(b, a);
end.
Т.к. всего команд выполнено 40, x из них "Назад 1", а x-8 "Вперёд 2". 2x-8=40, значит 24 команды "Назад 1" и 16 команд "Вперёд 2". Он переместился вперёд на 16*2=32 единиц и назад на 24 единицы, т.е. за выполнение всей программы он переместился вперёд на 32-24=8 единиц. Ответ: Вперёд 8
1. HTML-страница
2. тег
3. парные теги, как <тег> </тег>
4. 1,3
5. 3
6. CMS
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.