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