12 lines
108 B
ObjectPascal
12 lines
108 B
ObjectPascal
uses RBZad,uRobot;
|
|
|
|
begin
|
|
c1;
|
|
Speed(3);
|
|
while WallFromUp do
|
|
begin
|
|
Paint;
|
|
Right;
|
|
end;
|
|
end.
|