Использовать робот
алг
нач
нц пока слева свободно
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
нц пока слева свободно
закрасить
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа
вверх
кц
закрасить
кон
Второй вариант. Внизу картинка, которая всё подтверждает :)
Примеры:
1.Информация в учебниках
2.Произведения Художественной литературы
3.Тексты,описывающие алгоритмы
4.мысленный образ объекта
//PascalABC.NET
var
m,r:real;
begin
Writeln('Введите масштаб карты (кол-во км в 1 см)');
Readln(m);
Writeln('Введите расстояние между точками, изображающими населенные пункты (см)');
Readln(r);
Writeln('Расстояние между населенными пунктами: ',m*r,' км');
<span>end.</span>