Робот должен закрасить самую правую клетку коридора и вернуться в исходную позицию в левом конце коридора.

Составьте недостающую часть программы на языке КуМир, используя цикл пока дважды.

Кодирование ответа для тестирующей системы:
Программу записать в одну строку без пробелов,

скобок и запятых, используя следующие сокращения (буквы русские):

нпУСЛ — нц пока УСЛ, где УСЛ — условие, сформулированое по правилам, описанным ниже

к — кц

еУСЛ — если УСЛ, где УСЛ — условие, сформулированое по правилам, описанным ниже

т — то

в - все

П — вправо

Л — влево

В — вверх

Н — вниз

З — закрасить

Правила формирования условия:
ПВ — сПрава сВободно

ПТ — сПрава сТена

ЛВ — сЛева сВободно

ЛТ — сЛева сТена

Формирование составного условия:
ПВЛТ — справа свободно И слева стена

ПВ+ЛТ — справа свободно ИЛИ слева стена

ПВЛТ+ЛВПТ — справа свободно И слева стена ИЛИ слева свободно И справа стена

неПВ — НЕ справа свободно

При составлении составных условий помните про приоритеты операций И, ИЛИ, НЕ.

Будьте внимательны! В ответ нужно кодировать только недостающую часть программы, не используя при этом запятых и пробелов. Буквы русские, строчные и заглавные отличаются.

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз

{Данная программа переводит любое сочетание символов ASCII в систему счисления заданную пользователем.}

//Pascal ABC.NET v3.0 сборка 1111

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

beginreadln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

Пример ввода:
Домашняя работа на завтра.
2
Пример вывода:
11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-

{Таким образом, фразу "Домашняя работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}