uses Robot;
begin
Field(7,7);
for i:integer:=1 to 3 do
begin
left;
up
end;
paint;
for i:integer:=1 to 6 do
begin
right;
down;
paint
end;
for i:integer:=1 to 6 do left;
for i:integer:=1 to 6 do
begin
paint;
up;
right
end;
paint
end.
Объяснение:
картинка
