robot2

uses
Robot;

begin
Task('c15');

var k: byte := 0;
while not WallFromDown do
begin
Down;
Paint;
inc(k); // Кол-во шагов вниз
end;
for var i := 1 to k do Up; //возвращение в исходную
while not WallFromleft do
begin
left;
Paint;
end;
for var i := 1 to k do right; //возвращение в исходную
while not WallFromright do
begin
right;
Paint;
end;
for var i := 1 to k do left; //возвращение в исходную
while not WallFromUp do
begin
Up;
Paint;
end;
for var i := 1 to k do Down; //возвращение в исходную
paint;

end.