Вот такая программа для горизонтального коридора в одну клетку шириной и для начального положения робота в левом конце коридора.
Если радиации в коридоре не найдено, программа выводит об этом сообщение (без вывода цифровой статистики при этом).
использовать Робот
алг
нач
вещ макс=0 | максимальный найденный уровень радиации
цел счёт=0 | число наиболее заражённых клеток
нц
если радиация>макс то макс:=радиация все
если справа свободно то вправо иначе выход все
кц
если макс=0 то вывод 'радиации в коридоре нет'; выход все
нц
если радиация=макс то закрасить; счёт:=счёт+1 все
если слева свободно то влево иначе выход все
кц
вывод 'макс.уровень радиации= ',макс,нс
вывод 'клеток с таким уровнем= ',счёт
кон
