Uses robot;
var i,j,k,a,b:integer;
Begin
Task('cc13');
a:=12; b:=10;
for i:=0 to 3 do
begin
for j:=0 to a do right;
a:=a-2;
Down;
for k:=0 to b do left;
b:=b-2;
Paint;
end;
end.
Uses robot;
var i,j,k,a,b:integer;
Begin
Task('cc13');
a:=12; b:=10;
for i:=0 to 3 do
begin
for j:=0 to a do right;
a:=a-2;
Down;
for k:=0 to b do left;
b:=b-2;
Paint;
Down;
end;
end.