Question

Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны.

Answer 1

Var x:integer;
begin
paint;
for x:=1 to 5 do
begin
left;
paint;
end;
for x:=1 to 4 do
begin
down;
paint;
end;
for x:=1 to 2 do
begin
right;
paint;
end;
for x:=1 to 3 do
begin
up;
paint;
end;
end.