робот робот

uses
Robot;

var
a: integer;

begin
Task('mix5');

var k: byte := 0;
while not WallFromRight do
begin
if cellIsPainted then begin
while not WallFromDown do
begin
down;
paint;
inc(k);
end;
for var i := 1 to k do up;
a := 0;
while not WallFromLeft do
begin
k := 0;
left;
paint;
a := a + 1
end;
for var i := 1 to a do right;
a := 0;

while not WallFromRight do
begin

right;
paint;
a := a + 1;
end;
for var i := 1 to a do left;
a := 0;
while not WallFromUp do
begin

up;
paint;
a := a + 1;
end;
for var i := 1 to a do down;

end;
end;
end.