
uses Robot;
begin
while wallfromdown do
right;
down;
down;
left;
while wallfromup do
begin
paint;
left;
end;
end.
Объяснение:
использовать Робот
алг закрасить_все_снизу
нач
нц пока снизу стена
вправо
кц
вниз
влево
нц пока сверху стена
закрасить
влево
кц
кон
Объяснение: