РОБОТ

uses
Robot;

begin
Task('w12');


// Oкаймление рамки
while FreeFromDown and FreeFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and WallFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and FreeFromUp do
begin
Right;
Paint;
end;
while FreeFromDown and WallFromUp do
begin
right;
Paint;
end;
while FreeFromUp and FreeFromLeft do
begin
up;
paint;
end;
while FreeFromUp and WallFromLeft do
begin
up;
paint;
end;
while FreeFromUp and FreeFromDown do
begin
left;
paint;
end;
while FreeFromUp and wallFromDown do
begin
left;
paint;
end;
end.