Создавая циклы с условием для Робота , можно использовать 10 команд проверки условий:
– 8 команд вида [слева/справа/снизу/сверху] [стена/свободно]
– 2 команды вида клетка [закрашена/чистая]
На этом занятии будем выполнять задания, в которых не известно, сколько раз надо выполнять повторяющиеся действия
Пример 1. Составьте алгоритм, закрашивающий все внутренние клетки, прилегающие к стене. Длины стен неизвестны.
Особое внимание обратите на то, что программа должна давать верный результат при любых длинах стен. Проверять работо программы надо несколько раз, создавая различные варианты стартовых обстановок, например, при длине стены 1 клетка, при длине стены 8 клеток.
На рисунках представлены стартовая обстановка и результат.

Вариант решения:
использовать Робот
алг
нач
нц пока слева свободно
закрасить;влево
кц
нц пока снизу свободно
закрасить;вниз
кц
нц пока снизу стена
закрасить;
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.
Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c=180 then writeln('Possible') else writeln('Unpossible');
end.
Пример ввода:
100
40
40
Пример вывода:
Possible