uses Robot;
procedure shag;
begin
paint;
down;
left;
up;
end;
Task('c8');
for i:integer:=1 to 10 do shag;
end.
uses Robot;
procedure shag;
begin
paint;
down;
left;
up;
end;
begin
Task('c8');
for i:integer:=1 to 10 do shag;
paint;
end.